VB: Combobox-Auswahl

Public Class Form1

    Dim WithEvents com1 As New SerialPort

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        '----------------------------------- combox mit ports füllen

        Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

        For Each port As String In SerialPort.GetPortNames()

            ComboBox1.Items.Add(port)

        Next port

        '----------------------------------------------

        Try

            With (com1)

                .PortName = ComboBox1.SelectedItem

                .Parity = Parity.None

                .DataBits = 8

                .StopBits = StopBits.One

            End With

            com1.Open()

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub