Problem with MSComm port

[kandaiiskandar]

hi, im new with MSComm. I try to connect the com port with VB6.0. the problem i got is the vb say Invalid port number(8002). i already check the port number at Device manager any try connect any port available but still same. anybody know how to overcome my problem??

thank you



code that im using >>>

Private Sub Form_Load()
MSComm1.RThreshold = 1
MSComm1.InputLen = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 40
MSComm1.InBufferSize = 16
MSComm1.InputLen = 10
MSComm1.DTREnable = False
MSComm1.PortOpen = True
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub MSComm1_OnComm()

End Sub