Параллельный порт - VB

Формулировка задачи:

Как в VB прочитать - передать данные в LPT?

Решение задачи: «Параллельный порт»

textual
                            Листинг программы 
                        

                            Public Declare Function DlPortReadPortUchar Lib "dlportio.dll" _
   (ByVal Port As Long) As Byte
Public Declare Function DlPortReadPortUshort Lib "dlportio.dll" _ 
   (ByVal Port As Long) As Integer
Public Declare Function DlPortReadPortUlong Lib "dlportio.dll" _ 
   (ByVal Port As Long) As Long
 
Public Declare Sub DlPortReadPortBufferUchar Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortReadPortBufferUshort Lib "dlportio.dll" _ 
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortReadPortBufferUlong Lib "dlportio.dll" _ 
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
 
Public Declare Sub DlPortWritePortUchar Lib "dlportio.dll" _ 
   (ByVal Port As Long, ByVal Value As Byte)
Public Declare Sub DlPortWritePortUshort Lib "dlportio.dll" _
   (ByVal Port As Long, ByVal Value As Integer)
Public Declare Sub DlPortWritePortUlong Lib "dlportio.dll" _
   (ByVal Port As Long, ByVal Value As Long)
 
Public Declare Sub DlPortWritePortBufferUchar Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortWritePortBufferUshort Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortWritePortBufferUlong Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
                        