Ho risolto...
codice:
Dim contatore As Integer = 1
                For Each item In Dispositivo
                    If contatore = ComboBoxDispositivi.SelectedIndex - 1 Then
                         With SerialPort1
                            .PortName = item.Porta
                            .BaudRate = item.Velocit�
                        End With
                        SerialPort1.Open()
                        
                    End If
                    contatore += 1
                Next