VB6 και LPT port

3dakias

Καλησπέρα !
Ασχολούμαι λίγο Με VB6 και θέλω να κατασκευάσω μια κάρτα interface η οποία θα συνδέετε με την LPT port.
Αυτό που δεν ξέρω είναι το εξής, σε δυο CommandButton που έχω βάλει στην φόρμα μου ποια είναι η εντολή που πρέπει να γράψω?

Private Sub Command1_Click()

‘Εδώ τι πρέπει να γράψω για να δώσω στο pin out 1 η pin out 2… την εντολή on?

End sub

Private Sub Command2_Click()

‘Εδώ τι πρέπει να γράψω για να δώσω στο pin out 1 η 2… την εντολή off?

End sub
--------------------------------------------------------------------------------------------------------

Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" _
(ByVal PortAddress As Integer) _
As Integer

Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" _
(ByVal PortAddress As Integer, _
ByVal value As Integer)