檢查列出電腦的 com port

For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1
msgbox( My.Computer.Ports.SerialPortNames(i))
Next