try this, remove Set Count = Set_Listbox.ListCount
replace with the code below,

For count = 0 To Set_Listbox.ListCount - 1
Next count
you just want to get the total list count..and use on...

Hmm..that's really better.. :)

try this:



Sub xx()
Dim txt As String
Dim x As Variant
Dim i As Long
txt = "10,11,12,13,14,15,16,17,18,1,2,3,4"
x = Split(txt, ",")

make sure that the path is valid, and the pic file is on the path..

selection.InlineShapes.AddPicture.filename : = _
"C:\Documents and...

what you mean by not working macro unable to insert the picture file? or what?

try posting in vb.net forum... this forum is for vb6..

hi, try this...


Sub create_txt()
Dim fso, ts As Object
Dim lastcol, i As Integer
Dim x As Variant


Set fso = CreateObject("Scripting.FileSystemObject")

hi denniskhor, try putting "options explicit" before declaring all your variables.. i'm afraid you declare so many variables that system run out of resources or memory...

your variable...

it's a shared file..could be a virus.. if that zip file.. is a vb code.. paste it here..
be careful in dealing with shared files.. could be some malicious code on it..

hi abu taher, it's a function so you can use like this..

if you're input let's say from text1.text


Msgbox numtoword (text1.text)

wow, debasisdas.. two thumbs up for you.. :)

you want to show the equivalent value of the number you type, for example: you entered 1000 then there would be a display of one thousand or what?

check this out from MS site... filecopy function
hope it helps ;)

http://msdn.microsoft.com/en-us/library/2s1c774y(VS.80).aspx

or this one for example on how to use filecopy...
...

'E:\Vb6\New folder\db1.mdb'
this path doesn't exist in that particular computer in which you run the program

better use "app.path"

hi jabbaro, try this hope it helps..

make sure to reference the microsoft excel library in vb.. go to project->references find ms excel lib

you'll need 2 command button(start and stop), a...

you like to convert a string but the position of the character to be converted will be controlled randomly or what?

hi clarkpoon, try this...

need a command button and a listbox

just change the input string to your data


Private Sub Command1_Click()
Dim s, x, y, z As String
Dim i, n As Integer

why not set the "borderstyle" properties of the form to "0-None" so the form will not display "X" the user will not be able to terminate your program unless user choose to close the program using...

take a look at this thread..

http://www.daniweb.com/forums/thread170857.html

with the code of Comatose and advise of Debasisdas ..
combining both will help to ease your problem..
here is it..


Private Sub Command1_Click()

parts = Split(Text1.Text, " ")
rlname =...

check out this link..it might you an idea ;)

http://www.robvanderwoude.com/vbstech_ui_password.php

hmm...it's a bit frustrating...but i think you need to do it again... anyway..always remember to hit the save button or ctrl +s.. :)

---hOW TO I ASSIGN A SPECIFIC YEARS TO THE SAME BRAND and join it to the year?????EX---dbs@1983, 84 ETC.


can explain further?

hi, try this subroutine.. and use the final data to process to your database...



Sub zz()

Dim inputx, inputy, inputz, inputfinal As String
Dim i As Integer

inputx = InputBox("enter data")

hi chopin2256, welcome, just don't forget to mark the thread as solve... :)

hi chopin2245, try this its working...


Dim i, i1, i2 As Integer
Dim ix, itotal, itotal1 As String
Dim lastcell As Integer



lastcell = 3 'assumed that there are 3 cells only