Hola,
prueba poniendo un control Timer en el Form:
Código:
Dim contador As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
contador = 30
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
contador = contador - 1
Label1.Caption = contador
If contador = 0 Then
Timer1.Enabled = False
MsgBox "Se acabó el tiempo, ahora puedo ejecutar una orden"
End If
End Sub
