questo:


codice:
Option Explicit
Private Const PAR1 = &H378
Private IO As New INOUT32
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMillisencond As Long)

    Private Sub Form_Load()
    MSComm1.Settings = "9600,N,8,1"         'Setto la porta COM
    MSComm1.CommPort = 1                    'Il numero della porta com da aprire
    IO.BitSet PAR1, 6       'setto il bit della parallela 
    MSComm1.PortOpen = True 'apro la porta com
    Dim Buffer As Variant   'faccio le dichiarazioni
    Dim ByteArray() As Byte
...
...
...

spero di non aver scritto boiate, è il mio primo programmino (che sembra andare)