[VB6] Errore runtime 8012

[salvo8788]

Ciao a tutti, sto facendo un programmino, ora mi serve che questo riesca a comunicare con il modem 56k interno, ma quando vado per aprire la porta com 3 mi da il seguente errore "La periferica non è aperta".
il codice che uso è questo:

Private Sub Form_Load()
com.Settings = "9600, N, 8, 1"
com.CommPort = 3
If Not com.PortOpen Then
    com.PortOpen = True
End If
com.RThreshold = 0
com.InputLen = 0
com.Output = "AT#CID=1" & Chr(13)

End Sub

VIi prego di darmi una mano!!!

[SimoneVB]

Hai controllato che le impostazioni della com siano corrette ? Normalmente i modem vanno a 115200. Dubito comunque che sia questo il problema. Prima del codice fai delle prove con HyperTerminal, così da escludere eventuali altri errori.

Ciao
Simo

[mardok30]

Ma ci entra nell'If? Assicurati che la Com sia la 3...