j=0　　Fori=1To16Step1　　IfcomISP.PortOpen=TrueThen"先關閉串列埠　　comISP.PortOpen=False　　EndIf　　comISP.CommPort=i　　OnErrorResumeNext"說明當一個執行時錯誤發生時，控制元件轉到緊接著發生錯誤的語句之後的語句，並在此繼續執行。訪問物件時要使用這種形式而不使用OnErrorGoTo。　　comISP.PortOpen=True　　IfErr.Number<>8002Then"無效的串列埠號。這樣可以檢測到虛擬串列埠，如果用Err.Number=0的話檢測不到虛擬串列埠　　Ifj=0Then　　j=i　　EndIf　　cboPort.AddItem"COM"&i"生成串列埠選擇列表　　EndIf　　comISP.PortOpen=False　　Nexti　　Ifj>=1Then　　cboPort.Text="COM"&j"自動開啟可用的最小串列埠號　　comISP.CommPort=j　　comISP.PortOpen=True　　cmdOpenCom.Caption="關閉串列埠"　　shpCOM.FillColor=vbGreen　　IfErr.Number=8005Then"串列埠已開啟,vbExclamation"　　comISP.PortOpen=False　　cboPort.Text=""　　cmdOpenCom.Caption="開啟串列埠"　　shpCOM.FillColor=vbRed　　EndIf　　EndIf