Private Sub Form_Load()
  Timer1.Interval = 100
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  If Second(Time) = 0 Then
    Timer1.Enabled = False
    TimerAction
    Timer1.Enabled = True
  End If
End Sub
 
Private Sub TimerAction()
  MsgBox "Schon wieder ne Minute rum..."
End Sub

Private Sub Form_Load()
  Timer1.Tag = Second(Time)
  Timer1.Interval = 100
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
 
  Dim iSek As Integer
 
  iSek = Second(Time)
 
  If iSek < Timer1.Tag Then
    Timer1.Enabled = False
    TimerAction
    Timer1.Enabled = True
  End If
 
  Timer1.Tag = iSek
End Sub
 
Private Sub TimerAction()
  MsgBox "Schon wieder ne Minute rum..."
End Sub

Viel Spass,
R@lf