Private MAX_OBJ_INICIAL As Byte
Private ObjIniciales(1 To MAX_OBJ_INICIAL) As UserObj

Private Sub CargarObjetosIniciales()

    MAX_OBJ_INICIAL = Val(GetVar(IniPath & "Server.ini", "INVENTARIO", "CantidadItemsIniciales"))

    Dim Slot As Long, sTemp As String

    For Slot = 1 To MAX_OBJ_INICIAL

        sTemp = Val(GetVar(IniPath & "Server.ini", "INVENTARIO", "Item" & Slot))

        ObjIniciales(Slot).ObjIndex = Val(ReadField(1, sTemp, 45))
        ObjIniciales(Slot).Amount = Val(ReadField(2, sTemp, 45))
        ObjIniciales(Slot).Equipped = Val(ReadField(2, sTemp, 45))

    Next Slot

End Sub

Private Sub DarObjetosIniciales(ByVal Userindex As Integer)

    Dim Slot As Long

    With UserList(Userindex)

        For Slot = 1 To MAX_OBJ_INICIAL
            .Invent.Object(Slot).ObjIndex = ObjIniciales(Slot).ObjIndex
            .Invent.Object(Slot).Amount = ObjIniciales(Slot).Amount
            .Invent.Object(Slot).Equipped = ObjIniciales(Slot).Equipped
        Next Slot

        'Llamada a update inv si hace falta

    End With

End Sub