salve.

Con la seguente routine, impostata su un textbox ed 1 commbutt
riesco a produrre delle frequenze sonore.

codice:
Option Explicit
Private Declare Function BeepAPI Lib "kernel32" Alias "Beep" (ByVal dwFrequency As Long, ByVal dwMilliseconds As Long) As Long

Private Sub Command1_Click()
Dim freq As Long

  freq = Val(Text1.Text)
  BeepAPI freq, 200     '200 = durata in millesecondi

End Sub

Cioé inserisco nella textbox una frequenza, per es. 10000, ed ottengo
un suono di quella frequenza, della durata in millesecondi,
nell'esempio di 200 millesecondi.
Quello che non riesco a realizzare é
1 - la durata del suono non dovrebbe essere di x millesecondi, ma
continuo, fino a che io non lo arresto con un secondo commbutt

2 - Quale codice scrivere sotto il secondo button per arrestare il tutto?

3 -l suono adesso non esce (a mio parere) dai box ma dall'altoparlantino
del pc. Come fare per farlo uscire dai box?
C'é qualcuno che ha una idea, soluzione ai tre problemi?

grazie.
pazienza