控件源代碼進行聲明：

Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal value As Integer)　　//調用inpout32.dll文件進出數據接口

 

調用方法：

Public Function add(ByVal value As Integer)
Out &H378, Val(value)
End Function　　　　　//錄入值進行數據控制

 

調用方法add()就可以控制print接口