Need the simple Random code

[Stiletto]

Hey, I need the simple Random function.
Can ne post it for me?
tnx

[peet]

MSDN :

To produce random integers in a given range, use this formula:

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

Here, upperbound is the highest number in the range, and lowerbound is the lowest number in the range.

something like that ?

[Nucleus]

To get you started:

Private Function Random(ByVal Min As integer, ByVal Max As integer) As Integer
    Randomize
    Random = Int((max - min + 1) * Rnd + min)
End Function

[Stiletto]

No, I mean something like get a random number between 1 to 10...
?

[kourosh]

Randomize

int((10-1+1)*rnd+1)

[Matthew Gates]

Private Sub Command1_Click()
    Randomize Timer
    Msgbox Int((Rnd * 10) + 1)
End Sub