MSCOMM

On a form Startup I have the following code.

InitPort:
MSComm1.CommPort = 1
MSComm1.Handshaking = comNone
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
PortIsOpen = True
End If

The first portOpen states returns False, on the very next statenemt a receive the "8005" error stating that the port is open. Any idea what would cause this? on form unload I have:

If PortIsOpen then
Mscomm1.PortOpen = False
Set form = Nothing
End if

try putting a doevents before the if...then statement

Make sure that the port is not already in use by another application. I don't believe that MSComm.PortOpen will return TRUE if another app is using the port.