[RESOLVED] Drawing a blank?

[stevevb6]

i am using this code

Dim i As Integer
    
    Randomize
    i = Rnd(List1.ListCount) * List3.ListCount
    Label4.Caption = List3.List(i)

to display a random value of a list in a label. It works pretty good except ocassionally it will not put any thing in the label, leaving it blank. I was wondering if there is a solution for this?

[MartinLiss]

The general formula for generating a specific range of random numbers is

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

So do

Dim i As Integer
    
    Randomize
    i = Int(List1.ListCount +1) * Rnd
    Label4.Caption = List3.List(i)

You could simplify that if you want

Randomize
 
    Label4.Caption = List3.List(Int(List1.ListCount +1) * Rnd)

[Logophobic]

What does List1.ListCount have to do with a random item from List3?

Label4.Caption = List3.List(Int(Rnd*List3.ListCount))

[stevevb6]

thanks! Works much better!