' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Private Declare Function GetTickCount Lib "kernel32.dll" () As Long Private Sub Command1_Click() Dim r1 As Double Dim r2 As Double Dim r3 As Double Dim r4 As Double Dim r5 As Double Randomize -1 Randomize r1 = Rnd Randomize -1 Randomize (Timer) r2 = Rnd Randomize -1 Randomize (GetTickCount) r3 = Rnd Randomize -1 Randomize (Now) r4 = Rnd Randomize -1 Randomize (0) r5 = Rnd MsgBox CStr(r1) & " " & _ CStr(r2) & " " & _ CStr(r3) & " " & _ CStr(r4) & " " & _ CStr(r5) End Sub