Option Explicit
Private intMinuten As Integer
 
Private Sub Form_Load()
  Timer1.Interval = 60000  <font color=green>' entspricht 1 Minute</font>
  intMinuten = 0
End Sub
 
Private Sub Timer1_Timer()
  intMinuten = intMinuten + 1
  If intMinuten >= 30 Then
    Timer1.Enabled = False
    MsgBox "Programm wird beendet"
    ...
  End If
End Sub