1) open vb6
2) go to form1 and add command button 1 and 2
3) double click command1 and add
Private Sub Command1_Click()
Out Val(&H378), Val(&H0)
End Sub
3) double click command2 and add
Private Sub Command2_Click()
Out Val(&H378), Val(&HFF)
End Sub
4)go to project menu-->add module (new) module1
5)double click module1 and add
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)
badkalel14, shabbir likes this