Ok luego lo hare, pero ahora tengo un problema, el programa ya hace lo que pedi al principio como ven en el codigo pero ahora tengo un problema con el mismo boton cmdOK para dejarlo deshabilitado miren:
Private Sub cmdOK_Click(Index As Integer)
Cant = Cant - 1
Equipo(Index) = txtTeam(Index) ' guardamos en un array el equipo
cmdOK(Index).Enabled = False ' deshabilitamos el boton que se presionó
'------------------------------------------------------------------
If Cant > 0 Then ' si Cant es mayor que 0
Me.Height = Me.Height + 400
cmdListo.Top = cmdListo.Top + 400
Load lbljugador(lbljugador.ubound + 1)
lbljugador(lbljugador.ubound).Visible = True
lbljugador(lbljugador.ubound).Caption = "Nombre A"
lbljugador(lbljugador.ubound).Height = lbljugador(0).Height
lbljugador(lbljugador.ubound).Width = lbljugador(0).Width
lbljugador(lbljugador.ubound).Top = lbljugador(lbljugador.ubound - 1).Top + 400
Load txtTeam(txtTeam.ubound + 1)
txtTeam(txtTeam.ubound).Visible = True
txtTeam(txtTeam.ubound).Text = "Team FC"
txtTeam(txtTeam.ubound).Height = txtTeam(0).Height
txtTeam(txtTeam.ubound).Width = txtTeam(0).Width
txtTeam(txtTeam.ubound).Top = txtTeam(txtTeam.ubound - 1).Top + 400
Load cmdOK(cmdOK.ubound + 1)
cmdOK(cmdOK.ubound).Visible = True
cmdOK(cmdOK.ubound).Caption = "OK"
cmdOK(cmdOK.ubound).Height = cmdOK(0).Height
cmdOK(cmdOK.ubound).Width = cmdOK(0).Width
cmdOK(cmdOK.ubound).Top = cmdOK(cmdOK.ubound - 1).Top + 400
Else
cmdListo.Enabled = True ' cuando cant es = 0 nos trae aca y habilitamos el boton
End If
End Sub
Estoy seguro que es porque uso el INDEX, pero ya intente con cmdOk.Ubound ya que se supone que se hara click en el cmdOK de abajo de todo siempre.
El problema es que me deshabilita el boton pero el anterior tambien, como si se creo algo Recursivo xD