Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
ComboBox2.Items.Clear()
 
Select Case ComboBox1.Text
            Case "Max"
                TextBox1.Text = "nachname wird in Combobox 2 angezeigt"
                                ComboBox2.Items.Insert(0, "Musterman")
 
                        End Select
 
        Select Case ComboBox1.Text
            Case "Test"
                TextBox1.Text = "nachname wird in Combobox 2 angezeigt"
                ComboBox2.Items.Insert(0, "Spiel")
 
 
        End Select