Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
  'Find left or right based on e.X
  If e.X < Me.Width / 2 Then 
     Me.Text = "Left"
  Else
     Me.Text = "Right"
  End If
End Sub 'OnMouseMove