27/05/2012, 01:24
uyumak isteyenler için
Kod:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Kod:
Public Sub Wait(Seconds As Single)
Dim lMilliSeconds As Long
lMilliSeconds = Seconds * 1000
Sleep lMilliSeconds
End Sub