'beep für pc-speaker
Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal _
  dwDuration As Long) As Long
 
Private Sub Command1_Click()
    Dim lPcspeaker As Long
    lPcspeaker = Beep(500, 70)  'tonfrequenz, tonlänge
End Sub