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 Then Machwas()
    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
End Class