binding all countries to a combobox?!

[persianboy]

hi, i have a registeration form , one of the fields in nationality so i need a list of all countries in alphabetical order , this is what i could think of

Dim cultures() As System.Globalization.CultureInfo = System.Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.SpecificCultures)
        Dim countries As New System.Collections.ArrayList()
        Dim enm As IEnumerator = cultures.GetEnumerator
        While enm.MoveNext
            Dim str As String = CType(enm.Current, System.Globalization.CultureInfo).EnglishName
            Dim start As Int16 = str.IndexOf("(") + 1
            Dim finish As Int16 = str.IndexOf(")")
            countries.Add(str.Substring(start, finish - start))
        End While
        countries.Sort()
        nationality.DataSource = countries

there must be an easier way