VB 6.0串口 自動查詢串口代碼

Public Function set_comm_pro(com_pro As Integer) AsInteger
On Error ResumeNext          '屏蔽錯誤
   MSComm1.CommPort = com_pro  '設置COM口
   MSComm1.PortOpen = True
    If ErrThen                 '如果打開com口錯誤返回 -1
       set_comm_pro = -1
    Else
       set_comm_pro = com_pro  '否則返回COM口號
    End If
   MSComm1.PortOpen =False   '關閉串口
End Function
Public Function find_comm() As Integer
    Dim com_proAsInteger     '定義發現的COM口號
    Dim com_findAsInteger    '定義COM口上限
   
On Error ResumeNext           '屏蔽錯誤
    For com_find= 0 To16     '循環發現COM口
       If set_comm_pro(com_find) <> -1Then       '返回值不等于-1    即查找到COM口
           Combo1.Text = "COM" &(set_comm_pro(com_find))  '顯示COM口并且設置COM口
           find_comm = set_comm_pro(com_find)
           Exit For
       End If
    Nextcom_find

End Function