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