Private Wert!, LastVal!, flgAktiv As Boolean
 
Private Sub Form_Load()
 
  Wert = 37
  LastVal = Wert
  flgAktiv = False
  Timer1.Interval = 100
  Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
 
  If Wert <> LastVal Then
    flgAktiv = Not flgAktiv
    Wert = LastVal
  End If
  If flgAktiv = True Then Call Aktion
 
End Sub

Gruss,

Zardoz