Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.MouseEnter
        Button1.BackColor = Color.Coral
    End Sub
 
    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.MouseLeave
        Dim mp As Point = Button1.PointToClient(MousePosition)
        If Not Button1.ClientRectangle.Contains(mp) Then
            Button1.BackColor = Nothing
        End If
    End Sub