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

        Dim items As String() = {"A", "B", "C"}

        ComboBox1.Items.AddRange(items)

    End Sub



    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Select Case ComboBox1.Text

            Case "A"

                ' Aの処理 

            Case "B"

                ' Bの処理 

            Case "C"

                ' Cの処理 

        End Select

    End Sub