Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
  Dim Edge = 25
   If e.X > Edge And e.X < Me.Width - Edge Then
      Me.Text = "Yes"
   Else
      Me.Text = "No"
   End If
End Sub 'OnMouseMove