problemer med Combobox

Hej jeg har et programer her

Public Class Form1


    Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) '
        'ToDo: Error processing original source shown below
        'System.Char[]
        '^--- Syntax error: '{' expected
    End Sub 'MainFormLoad



    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim navne As String() = {"Simon", "hans", "kim", "Christian", "kasper", "Søren"}
        Dim rnd As New Random()

        textBox1.Text = navne(rnd.Next(0, 5))
    End Sub 'Button1Click


    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    End Sub 'button1_Click

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

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

    End Sub
End Class

Jeg har lavet sådan en menu i min Combobox hvor man kan rulle ned og vælge drenge navne eller pigen navne.

jeg vil gerne have at den skrive drenge navne når man har valgt drengen navne i Combobox'en  og at den skrive pige navne når man har valgt pige navne i Combobox'en..

Den skal stadig skrive drenge og pige navne i samme tekstbox.

Er der nogen der kan hjælp med det??? ;o)