AYUDENME PORFA CON UN problema de bucles FOR x faaaa URGENTE!!!!!!

[JuanVelasco2]

Hola Amigo...

Espero que esto te sirva de algo...

Esta hecho en Visual Basic 6.0

El Formulario Consta de 2 TextBox, 1 Combobox y 1 Boton

El Text1= al Numero en el Cual Se Va a Comenzar, ejemplo si N=3 este comenzara en 3, 4 y 5

El Text2=a la Cantidad de Veces que va aparecer.

El Combo= es donde se van a ver los numeros

El Boton= Es Para Limpiar y Comenzar de Nuevo...

__________________________________________________ _______________

Sub Inicio()
Text1 = ""
Text2 = ""
Combo1.Clear
End Sub

Private Sub Command1_Click()
Call Inicio
Text1.SetFocus
End Sub

Private Sub Form_Load()
Call Inicio
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1 = "" Then
Text1.SetFocus
Else
Text2.SetFocus
End If
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text2 = "" Then
Text2.SetFocus
Else
Var1 = Text2
Var2 = Text1
For i = 1 To Var1
Combo1.AddItem Var2
Var2 = Var2 + 1
Next
Combo1.SetFocus
End If
End If
End Sub

__________________________________________________ _______________

Espero que te sirva en algo....

Bye