Decoder Dll Sonic 2.8.6.1418 How Can I Interface A Visual Basic 6.0 To 7447 Decoder Using Parallel Port.?

How can i interface a Visual Basic 6.0 to 7447 Decoder using parallel port.? - decoder dll sonic 2.8.6.1418

Help! Use in the experiment, a decoder interface IC 7447 parallel interface to Visual Basic. When I run, is their suddenly a pop-up errors in Visual Basic. Here, the error will pop ..

AppName: VB6.exe AppVer: 6.0.81.76 ModName: inpout32.dll
ModVer: 0.0.0.0 Offset: 00005c0b

My operating system is the Service Pack 3 and has a Micrsoft inpout32.dll

Here are my SoureCode and module are

Private Sub Command1_Click ()
If Len (Text1.Text) = 1 Then
Out & H378, ASC (Text1.Text)
ElseIf Len (Text1.Text) = 0 Then
MsgBox "is a sign!", VbCritical, "Error"
Text1.SetFocus
Other
MsgBox "must be a character type", vbCritical, "Error"
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click ()
Out & H378, 0
Text1.Text = ""
End Sub

Module

Public Declare Function Inp Lib "inpout32.dll" _
Alias Inp32 "(ByVal Port Address As Integer) As Integer
Public Declare SUB out Lib "inpout32.dll" _
Alias Out32 "(ByVal Port Address As Integer, ByVal Value As Integer)