Oi pessoal,
 Para habilitar a porta serial COM1, eu faço:

 Private Sub Option1_Click()
 If MSComm1.PortOpen = True Then
 MSComm1.PortOpen = False
 End If
 MSComm1.CommPort = 1
 MSComm1.Settings = "19200,N,8,1"
 MSComm1.InputLen = 0
 MSComm1.SThreshold = 1
 MSComm1.RThreshold = 1
 MSComm1.PortOpen = True
 ext1:
 End Sub
 
 Pergunto, e para habilitar outra porta, basta mudar
 linhas que tem o comando MSComm1 para MSComm2,
 é isso mesmo?
 Att. Wellington

sim se tiver dois controles no form se nao mantenha o nome do controle MSComm1.CommPort=2

OK , valeu Obrigado!!!

Wellington