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