RE:CONTROLAR PUERTO PARALELO
Existe una libreria Inpout32.dll que permite "leer"y "escribir" datos en los periféricos de la PC desde windows.
el puerto paralelo normalmente es la direccion &h378
Tendrías que conseguir esa DLL y luego en un modulo declarar sus 2 procedimientos asi:
Declare Sub Out Lib "Inpout32.dll" Alias "Out32" (ByVal Addr%, ByVal Bite As Byte)
Declare Function Inp Lib "Inpout32.dll" Alias "Inp32" (ByVal Addr%) As Byte
un ejemplo de llamada para conocer el estado de los pines es este:
Private Sub LeerPuerto()
Dim lectura As Byte
lectura = Inp(PuertoEntrada)
End Sub
El byte "Lectura" reflejará en cada bit el estado de cada pin
bueno. Espero te sirva de algo
surte