Declare Function CheckCD Lib "comstat.dll" (ByVal CommPort As Integer) As Integer
Declare Function CheckCTS Lib "comstat.dll" (ByVal CommPort As Integer) As Integer
Declare Function CheckDSR Lib "comstat.dll" (ByVal CommPort As Integer) As Integer
Declare Function CheckRI Lib "comstat.dll" (ByVal CommPort As Integer) As Integer



