Dim count As Integer
lstvalues.items.add("Input Values" wink
For count = 1 To maxnumbers
Numbers(count) = Val(InputBox("Please enter value #" & _
count & " of " & maxnumbers & ":" wink )
lstvalues.items.add(Numbers(count))
Next count
btnmaxmin.focus()
View User's Journal
Most Of It Is For Gold
 |
