[VB6] Problemi con il modem

[OrcaAssassina]

Ho questo codice per effettura una chiamata premendo un pulsante

Lui alza la linea comporre il numero scritto in una textbox.

C'è un problema

Dopo aver effettuto la composizione del numero, il modem inizia a fare il solito.....biiiiiiiiiii.....................biiiiiiiiiiiiiiiiiiiii...................biiiiiiiiiiiiiiiiiiiii (bello il suono!! hahah)
come se si messe in ascolto con il server aspettando una ripsosta dati per una connessione.

Questo suono è odioso in quanto disturba la chiamata

C'è un modo per eliminarlo????

Ciao e grazieeeeeeeee



Private Sub Command2_Click()
Const MAX_TRIES = 10000
Dim results As String
Dim num_tries As Long
Screen.MousePointer = vbHourglass
DoEvents
On Error GoTo Oops
' Chiude la porta se è aperta
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
DoEvents
' Legge la porta COM
MSComm1.CommPort = CInt(rsRecordSet2![Porta1])
MSComm1.InputLen = 0
' 9600 baud, no parity, 8 data bits, 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Apre la porta, alza la linea
MSComm1.PortOpen = True
' Errore in cas0 di porta errata
MSComm1.Output = "ATV1Q0" & Chr$(13)
' Attendere.
Do
DoEvents
results = results & MSComm1.Input
num_tries = num_tries + 1
If num_tries > MAX_TRIES Then
MsgBox "Did not get OK response in " & MAX_TRIES & " tries"
Exit Do
End If
Loop Until InStr(results, "OK" & vbCrLf) > 0
' Compone il numero
MSComm1.Output = "ATDT " & CleanPhoneNumber(Text4.Text) & vbCr
' Domanda per chiusura
MsgBox "Premi OK per terminare la chiamata", vbInformation Or vbOKOnly, "Please Wait"
' Chiudi la linea
MSComm1.PortOpen = False
Screen.MousePointer = vbDefault
Exit Sub

Oops:
MsgBox "Error " & Err.Number & vbCrLf & _
Err.Description, _
vbExclamation Or vbOKOnly, _
"Error"
Screen.MousePointer = vbDefault
Exit Sub
End Sub

[OrcaAssassina]

Un aiutino

Ciao e grazieeeeeeeeeeee

[OrcaAssassina]

Nessuno sa come risolvere questo problema

[cionci]

Nelle proprietà del modem metti l'altoparante al minimo