Option Explicit

Public Sub Wait(Seconds)
Timer1.Enabled = True
Me.Timer1.Interval = 1000 * Seconds
While Me.Timer1.Interval > 0
DoEvents
Wend
Timer1.Enabled = False
End Sub


Private Sub Timer1_Timer()
Timer1.Interval = 0
End Sub


Private Sub Command1_Click()
Label1.Caption = "0 sekunder väntat"
Wait (5) 'tid som programmet ska vänta innan nästa kodrad utförs
Label2.Caption = "5 sekunder väntat"
Wait (3) 'tid som programmet ska vänta innan nästa kodrad utförs
Label3.Caption = "8 sekunder väntat"
End Sub