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
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub Wait(Seconds As Single)
Dim lMilliSeconds As Long
lMilliSeconds = Seconds * 1000
Sleep lMilliSeconds
End Sub
Bu Konudaki Yorumlar |
Pause your Application - Yazar: accessman - 27/05/2012, 01:24
Cvp: Pause your Application - Yazar: accessman - 09/11/2012, 16:34
|