problem with mscomm

[Shefali]

hello all
i m having a really silly problem. i have written some codes with mscomm, but i dont know why all of a sudden i m having this problem.

the problem is:

Private Sub Form_Load()
     With MSComm1
           .Commport=1
           .Settings="19200,N18,1"
           .InputLen=0
           .PortOpen=True '(Here the error message says that the port is  
                                   'already open, but if i dont use this and try to
                                   ' send something to the serial port it says
                                   ' port not open)
     End With
End Sub

i dont know what the problem is. if i say portopen=true it says already open. i even tried to check by
if mscomm1.portopen =true then mscomm1.portopen=false.

still no result.
kindly suggest.
regards. shefali