Karcrack escribió:

Por que declaras ambas APIs? Ademas, porque lo haces dos veces?

Retorcida? Ni mucho menos, es el API mas usada despues de MessageBox
[/code]

Karcrack escribió:

Por que declaras ambas APIs? Ademas, porque lo haces dos veces?

Retorcida? Ni mucho menos, es el API mas usada despues de MessageBox

Código: Seleccionar todo

'KERNEL32
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
    MsgBox "HOLA"
    Call Sleep(5 * 1000) '5000 ms = 5 segundos
    MsgBox "HOLA, han pasado 5 segundos"
End Sub

Private Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long

http://msdn.microsoft.com/en-us/library/ms686307(VS.85).aspx

bAlertable [in]

If this parameter is FALSE, the function does not return until the time-out period has elapsed. If an I/O completion callback occurs, the function does not return and the I/O completion function is not executed. If an APC is queued to the thread, the function does not return and the APC function is not executed.

If the parameter is TRUE and the thread that called this function is the same thread that called the extended I/O function (ReadFileEx or WriteFileEx), the function returns when either the time-out period has elapsed or when an I/O completion callback function occurs. If an I/O completion callback occurs, the I/O completion function is called. If an APC is queued to the thread (QueueUserAPC), the function returns when either the timer-out period has elapsed or when the APC function is called.

Public Sub SleepInterval(ByVal dwMilliseconds As Long, Optional ByVal dwInterval As Long = 200)
    Dim i       As Long
    
    For i = 0 To (dwMilliseconds / Interval)
        Call Sleep(Interval)
    Next i
End Sub

SleepInterval 50000