如何用VB編寫開啟端口

.Settings = "9600,N,8,1"

.CommPort = 3

.InBufferSize = 8

.OutBufferSize = 2

If .PortOpen = True Then .PortOpen = False

.RThreshold = 4

.SThreshold = 1

.InputLen = 0

.InputMode = 0

If .PortOpen = False Then .PortOpen = True

.InBufferCount = 0

End With

這個代碼開啟端口