‘ Repondiendo a la pregunta sobre si
‘ Se puede cambiar la velocidad de Transmsion/Recepcion dinamicamente
‘
‘..     Dim MiPuerto As New System.IO.Ports.SerialPort
‘..     MiPuerto = My.Computer.Ports.OpenSerialPort(«COM1»)
‘
‘En este ejemplo enviamos una trama “Hola” a una velocidad diferente
‘cada vez que invoquemos el procedimiento EnviarTrama
‘
‘Evidentemente podeis asociarlo a un combo, de manera que utilice la
‘velocidad asociada a la selección del mismo

… Sub EnviarTrama …
        Select Case MiPuerto.BaudRate
            Case 19200
                MiPuerto.BaudRate = 9600
            Case 9600
                MiPuerto.BaudRate = 4800
            Case 9600
                MiPuerto.BaudRate = 2400
            Case Else
                MiPuerto.BaudRate = 19200
        End Select
        MiPuerto.WriteLine(«Hola… enviando a :» + MiPuerto.BaudRate.ToString)

Saludos;
Pep Lluis,