Display message with a delay?

[em07189]

Hi, everyone.

My question is:


How to display a message with a delay?

Thanks.

[em07189]

Can someone help me on this.

[litlewiki]

with a delay in the sense??
add a timer set the interval for say 5 seconds then call the event
just a wild idea!!

[em07189]

Can you give me a sample code?

[litlewiki]

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Delay(ByVal delayInSeconds As Integer)
    Dim targetTime As Date
    targetTime = DateAdd("s", delayInSeconds, Now())
    While targetTime > Now
        Sleep 50 ' reduce CPU usage
        DoEvents ' keep app responsive
    Wend
End Sub

Private Sub Command1_Click()
Delay (5)
MsgBox "A"
End Sub

this will show your msgbox after 5 seconds

[bushmobile]

why not just use a timer as you originally suggested:

Private Sub Timer1_Timer()
    MsgBox "TEST"
End Sub
 
Private Sub Command1_Click()
    Timer1.Interval = 5000
    Timer1.Enabled = True
End Sub