reset comm port in VB6

[xanseviera]

how to reset comm port in VB6?

Private Sub Command6_Click()
   MSComm1.PortOpen = True
   MSComm1.Output = "a"
   MSComm1.Output = "b"
   MSComm1.Output = "c"
   MSComm1.PortOpen = False      'Close the COMM port
End Sub

Private Sub Command4_Click()
   MSComm1.PortOpen = True
   MSComm1.Output = "g"
   MSComm1.Output = "h"
   MSComm1.Output = "i"
   MSComm1.PortOpen = False      'Close the COMM port
End Sub

i want to reset port from command6 to command4.
how to do? can sum1 help me.
TQ

 

[lockman_akim]

i dont understand what u really want..
can u xplain more..

 

[xanseviera]

i got it already... i found error on my PIC programming.
TQ for helping