Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
   'Display top or bottom in text
   If e.Y < Me.Height / 2 Then
       Me.Text = "Top "
   Else
       Me.Text = "Bottom "
   End If
   'Find add left or right to text
   If e.X < Me.Width / 2 Then
       Me.Text = Me.Text & "Left"
   Else
       Me.Text = Me.Text & "Right"
   End If
End Sub 'OnMouseMove