Private Sub MouseEnter(sender As Object, e As System.EventArgs) Handles _
      Button1.MouseEnter, Button2.MouseEnter, Button3.MouseEnter, _
      Button4.MouseEnter, Button5.MouseEnter
        Dim btn As Button = DirectCast(sender, Button)
 
        btn.Font = New Font(btn.Font, FontStyle.Bold)
 
    End Sub
 
    Private Sub MouseLeave(sender As Object, e As System.EventArgs) Handles _
      Button1.MouseLeave, Button2.MouseLeave, Button3.MouseLeave, _
      Button4.MouseLeave, Button5.MouseLeave
        Dim btn As Button = DirectCast(sender, Button)
 
        btn.Font = New Font(btn.Font, FontStyle.Regular)
    End Sub

EALA FREYA FRESENA