Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
  Dim Fourth As Integer
  Fourth = Me.Width / 4
  Select Case e.X
     Case 0 To Fourth
        Me.Text = "One Fourth"
        Me.BackColor = Color.White
     Case Fourth To Fourth * 2
        Me.Text = "Two Fourths"
        Me.BackColor = Color.Pink
     Case Fourth * 2 To Fourth * 3
        Me.Text = "Three Fourths"
        Me.BackColor = Color.DeepPink
     Case Else
        Me.Text = "Four Fourths"
        Me.BackColor = Color.Red
  End Select
End Sub 'OnMouseMove