' Controls: 1 * Timer-Control, 1 * Button
 
Private Sub Form_Load()
  Timer1.Enabled = False ' Timer aus, zur Sicherheit
End Sub
 
Private Sub Command1_Click()
  Timer1.Interval = 2000 ' Zeit
  Timer1.Enabled = True ' Timer ein
  Me.Caption = "Timer wurde gestartet, bitte warten."
End Sub
 
Private Sub Timer1_Timer()
  Timer1.Enabled = False ' Timer aus
  ' Dein Code
  ' ...
  Me.BackColor = Rnd * &HFFFFFF
  Me.Caption = "Aktion ausgeführt."
 
End Sub

Gruss,

Zardoz