Visual Basic - Ayuda con Combo Box VB

Public Class Form1

    Public nacion() As String = {"Britanico", "Sueco", "Aleman", "Ingles", "Noruego"}

    Public color() As String = {"Blanco", "Amarillo", "Rojo", "Verde", "Azul"}

    Public bebida() As String = {"Agua", "Cafe", "Té", "Leche", "Cerveza"}

    Public cigarro() As String = {"Pall Mall", "Blends", "Prince", "Dunhill", "Bluemasters"}

    Public mascota() As String = {"Pez", "Gato", "Perro", "Caballo", "Pajaro"}

    Public obj As Object

    Public col As Integer

    Public arr As Object

    Private Sub llenado()

        obj.Items.AddRange(arr)

    End Sub

    Private Sub limpiado()

        obj.Items.Clear

    End Sub

    Private Sub cmbcol1_GotFocus(sender As Object, e As EventArgs) Handles cmbcol1.GotFocus

        arr = color

        obj = cmbcol1

        limpiado()

        llenado()

    End Sub

    Private Sub cmbcol2_GotFocus(sender As Object, e As EventArgs) Handles cmbcol2.GotFocus

        arr = color

        obj = cmbcol2

        limpiado()

        llenado()

    End Sub

    Private Sub cmbcol3_GotFocus(sender As Object, e As EventArgs) Handles cmbcol3.GotFocus

        arr = color

        obj = cmbcol3

        limpiado()

        llenado()

    End Sub

    Private Sub cmbcol4_GotFocus(sender As Object, e As EventArgs) Handles cmbcol4.GotFocus

        arr = color

        obj = cmbcol4

        limpiado()

        llenado()

    End Sub

    Private Sub cmbcol5_GotFocus(sender As Object, e As EventArgs) Handles cmbcol5.GotFocus

        arr = color

        obj = cmbcol5

        limpiado()

        llenado()

    End Sub

End Class

Sub llenar(ByVal fila As Integer, ByVal obj As Object, ItemX as string)

        columna = 0

        While columna < 5

        if itemX  <> llenado(fila,Columna) then   ' validar si el item es el que vas a llenar para omitirlo

            obj.Items.Add(llenado(fila, columna))

        end if

            columna += 1

        End While

    End Sub