Visual Basic My randoized Code

Ablank

This comde is to get a random number!!!!
Or eventes...use imagination Very Happy

Creat a command button!!
And add this code!
Code here:

gaudi

here is a funktion which one uses the Date-Time so you never have
the same random number

Public Function GenerateRandom(minVal As Long, maxVal As Long) As Long
Dim intr%
intr = -1
maxVal = maxVal + 1
If maxVal > 0 Then
If minVal >= maxVal Then
minVal = 0
End If
Else
minVal = 0
maxVal = 10
End If
Randomize (DatePart("s", Now) + DatePart("m", Now))
Do While (intr < minVal Or intr = maxVal)
intr = CLng(Rnd() * maxVal)
Loop
GenerateRandom = intr
End Function

Teddy1

Sweet commands guys. Great work Smile

. Keep it up Cool