aprire la com2

pepe.romero@tin.it 17/03/2004 Difficoltà: Facile

Salve, sto realizzando un programma che mi permetta di acquisire ed inviare dati tramite porta di comunicazione com.
provando prima di tutto ad aprire la porta ho trovato subito il primo intoppo.

Il cosice usato per la connessione alla com2 e' il seguente:

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, Byval dwDesiredAccess As Long, Byval dwShareMode As Long, lpSecurityAttributes As Long, Byval dwCreationDisposition As Long, Byval dwFlagsAndAttributes As Long, Byval hTemplatefile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Sub Form_Load()
Dim nPorta As Long
nPorta = CreateFile("COM2", GENERIC_READ Or GENERIC_WRITE, 0, 0&, OPEN_EXISTING, 0, 0)
MsgBox nPorta
CloseHandle nPorta
End Sub

Ho provato anche a mettere come terzo parametro FILE_SHARE_READ ma il risultato e sempre il maledetto -1.
Per caso c'e' qualche altra cosa da impostare?

Grazie a tutti