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
  If Me.Text = "Top Left" Then
     Me.BackColor = Color.Azure
  ElseIf Me.Text = "Top Right" Then
     Me.BackColor = Color.BlueViolet
  ElseIf Me.Text = "Bottom Left" Then
     Me.BackColor = Color.Black
   Else
     Me.BackColor = Color.Bisque
   End If
End Sub 'OnMouseMove