Declare Function GetDefaultCommConfig Lib "kernel32" _
Alias "GetDefaultCommConfigA" (ByVal lpszName As String, _
lpCC As COMMCONFIG, lpdwSize As Long) As Long
Declare Function CommConfigDialog Lib "kernel32" _
Alias "CommConfigDialogA" (ByVal lpszName As String, ByVal hWnd As Long, lpCC As COMMCONFIG) As Long

Public Declare Function ComDBOpen Lib "Msports" (ByRef PHComDB As Long) As Long
Public Declare Function ComDBClaimNextFreePort Lib "Msports" (ByVal HComDB As Long, ByRef ComNumber As Integer) As Long
Public Declare Function ComDBReleasePort Lib "Msports" (ByVal HComDB As Long, ByVal ComNumber As Integer) As Long