求教，vb串口通信怎么自动扫描串口号

执行下面的过程即可，之前要添加一个mscomm控件、一个下拉列表、一个按钮，不足的是要假设一个比较大的值6.
Private Sub Command1_Click()
On Error Resume Next
For i = 1 To 6 '基本上都在6以下，如果多可以修改
= i
 Err.Clear '错误清除clear应该在这里
MSComm1.PortOpen = True
If Err.Number = 0 Then
List1.AddItem "com" & i '用list1控件记录可用的com
MSComm1.PortOpen = False
End If
Next

额   为什么我每次运行之后都会多个串口号啊   不能清空吗 ？？？

list1.Clear

楼下已经帮我解决了，忘记初始化操作了……