Dim Object As Integer
Dim Leer As New clsLeerInis
Leer.Abrir DatPath & "Obj.dat"
'j = val(Leer.DarValor("INIT", "NumObjs")) '
'obtiene el numero de obj
NumObjDatas = val(Leer.DarValor("INIT", "NumObjs"))
frmCargando.cargar.Min = 0
frmCargando.cargar.max = NumObjDatas
frmCargando.cargar.Value = 0
En lo negro me marca "metodo no encontrado".. la verdad nose..
Desde ya muchas gracias





17![Aprendiz [7] Aprendiz [7]](./images/ranks/Rango12.gif)

![Legendario Inmortal [1] Legendario Inmortal [1]](./images/ranks/Rango36.gif)

![Oraculo [4] Oraculo [4]](./images/ranks/Rango28.gif)
