static extern bool GetCommProperties(IntPtr hFile, ref COMMPROP lpCommProp);

Declare Function GetCommProperties Lib "kernel32" (ByVal hFile As Integer, ByRef lpCommProp As COMMPROP) As Boolean