Private Sub ScreenSaverForm_MouseMove(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles Me.MouseMove
        ' Legen Sie IsActive und MouseLocation nur beim ersten Aufruf des 
        ' Ereignisses fest.
        If Not isActive Then
            mouseLocation = MousePosition
            isActive = True
        Else
            ' Schließen, wenn die Maus seit dem ersten Aufruf wesentlich 
            ' verschoben wurde.
            If Math.Abs(MousePosition.X - mouseLocation.X) > 10 OrElse _
              Math.Abs(MousePosition.Y - mouseLocation.Y) > 10 Then
                Close()
            End If
        End If
 
    End Sub

    Private Sub ScreenSaverForm_KeyDown(ByVal sender As Object, ByVal e As _
      KeyEventArgs) Handles Me.KeyDown
        Close()
    End Sub
 
 
    Private Sub ScreenSaverForm_MouseDown(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles Me.MouseDown
        Close()
    End Sub