VB Code:
'In the declarations section
Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
'In yur procedure
Dim x As Integer, y As Integer
Dim z As Integer, Total As Integer
Dim Counter As Integer, Second As Long
Dim TimeStamp As Long
Counter = Counter + 1
Do Until Counter = 50
Counter = Counter + 1
txt1 = Int(Rnd * 3 + 1)
txt2 = Int(Rnd * 3 + 1)
txt3 = Int(Rnd * 3 + 1)
TimeStamp = GetTickCount
Do While TimeStamp + 500 > GetTickCount
DoEvents
Loop
Loop
Counter = 0
VB Code:
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Dim x As Integer, y As Integer
Dim z As Integer, Total As Integer
Dim Counter As Integer, Second As Long
Counter = Counter + 1
Do Until Counter = 50
Counter = Counter + 1
txt1 = Int(Rnd * 3 + 1)
txt2 = Int(Rnd * 3 + 1)
txt3 = Int(Rnd * 3 + 1)
Sleep 500
Loop
Counter = 0