Public Declare Function OpenCom Lib "PCBDll.dll" (ByVal bComId As Byte, ByVal bByteSize As Byte, ByVal bStopBits As Byte, ByVal bParity As Byte, ByVal dwBaudRate As Long) As Long
Public Declare Function CloseCom Lib "PCBDll.dll" (ByVal bComId As Byte) As Long
Public Declare Function ReSet Lib "PCBDll.dll" (ByRef Status As Long, ByVal WaitTime As Long) As Long
Public Declare Function SettingTrackBuf Lib "PCBDll.dll" (ByVal CodeNum As Byte, ByVal Data As String, ByVal DataLen As Long, ByRef Status As Long, ByVal WaitTime As Long) As Long
Public Declare Function WriteTrack Lib "PCBDll.dll" (ByVal CodeNum As Byte, ByVal TrackNum As Long, ByRef Status As Long, ByVal WaitTime As Long) As Long
Public Declare Function Read Lib "PCBDll.dll" (ByVal CodeNum As Byte, ByVal Res As String, ByRef Status As Long, ByVal WaitTime As Long) As Long
只要原Dll參數類型改成與VB裏面類型兼容的類型即可。