Wait

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 = "1"
Wait (5)
Label2.Caption = "2"
Wait (5)
Label3.Caption = "3"
End Sub