Private Sub Button1_BackColor(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Button1.MouseEnter, Button1.MouseLeave
        Button1.BackColor = IIf(Button1.BackColor = Color.Aqua, _
        SystemColors.Control, Color.Aqua)
End Sub