1與0的世界

    Private Sub Frmscreensaver_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Static start As Boolean = True
        Static start_x, start_y As Integer

        If (start) Then
            start_x = e.X
            start_y = e.Y
        End If
        start = False

        If (Math.Abs(start_x - e.X) > 50 Or Math.Abs(start_y - e.Y) > 50) Then
            Me.Close()
        End If
    End Sub