Friend LastEvent As Integer ' Date ist auch möglich.
 
Sub EinEreigniss()
  LastEvent = System.Environment.TickCount
End Sub
 
Private Sub Timer1_Tick(ByVal Sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
  'Differenz größer 10 min.
  If System.Environment.TickCount - LastEvent > 10 * 60 * 1000 Then
    Me.Close()
  End If
End Sub