Dim ÜberControl As Boolean
 
Private Sub userControl_MouseMove(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove, pctBox.MouseMove
        If e.X >= Me.Location.X And e.X <= Me.Location.X + Me.Size.Width And _
            e.Y >= Me.Location.Y And e.Y <= Me.Location.X + Me.Size.Height Then
 
            If ÜberControl = False Then
                ÜberControl = True
            End If
        Else
            If ÜberControl = True Then
                ÜberControl = False
            End If
        End If
 
        Label1.Text = ÜberControl.ToString & " " & z.ToString
        z += 1
    End Sub