Public Class Form1
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F8 AndAlso Button1.FlatStyle = FlatStyle.Standard _
        Then
            Button1.FlatStyle = FlatStyle.Flat
            Machwas()
        End If
    End Sub
 
    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        Machwas()
    End Sub
    Private Sub Machwas()
        Console.Beep(1000, 50)
    End Sub
 
    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If Button1.FlatStyle = FlatStyle.Flat Then
            Button1.FlatStyle = FlatStyle.Standard
        End If
    End Sub
End Class