Private Sub Command1_Click() Beep End Sub
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Command1_Click() Beep 500, 1000 End Sub