1
2
3
4
5
6
7
Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub cmdBeep1_Click()
Beep (Rnd()* 5000), 50 'primo valore: frequenza del suono, secondo valore: durata

End Sub