[RESOLVED] Drawing a blank?

i am using this code

VB 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?

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

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

So do

VB Code:

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

You could simplify that if you want

VB Code:

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

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

VB Code:

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

thanks! Works much better!