Ayuda con pequeña cosa (VB6)

[Jose2k]

buenas... gracias de antemano... vamos al grano

es un estupidez debo decir... pero he intentado varias cosas y nada... lo hago para un proyecto grande q estoy haciendo

digamos q tengo un combobox(combo1) q quiero llenar con el valor de una variable integer(var).. veanlo de esta forma:

si el valor de var es 10, quiero que el combo box tengo en su lista 1,2,3....9,10

si el valor de var es 9, quiero que el combo box tengo en su lista 1,2,3...8,9

es decir q enumere el valor de la variable... intente con while

Dim var1 As Integer
Dim var2 As Integer



Private Sub Command1_Click()
Combo1.Clear
Combo1.AddItem (10)
Combo1.Text = 10
var2 = 0
var1 = Combo1.Text
while var2 = var1
var1 = (var1 - 1)
Combo1.AddItem (var1)
wend
End Sub


y no hubo respuesta... intente con for, do, y tampoco hubo respuesta, pienso q while es la solucion pero no tengo idea de que esta mal. hasta intente con if:

Dim var1 As Integer
Dim var2 As Integer



Private Sub Command1_Click()
Combo1.Clear
Combo1.AddItem (10)
Combo1.Text = 10
var2 = 0
var1 = Combo1.Text
start:
If var1 <> var2 Then
Combo1.AddItem (var1)
Else
MsgBox "Listo", vbOKOnly, Titulo
End If
var1 = (var1 - 1)
GoTo start
End Sub


bueno... perdonen la ignorancia.. tengo años q no toco VB y esas cosas se olvidan facil. gracias y adios