Mira en el CODIGO DEL CLIENTE creas el commandboton o picture o label y le haces doble click y pones:
Despues vas al CODIGO DEL server buscas case "/EST" y arriva pones:
- case "/ITEM"
- dim Lorena as obj
- Lorena.objindex = NUMERO DE ITEM
- Lorena.amount = CANTIDAD DE ITEMS
-
- call meteritemeninventario(userindex, Lorena)
- call senddata(toindex, userindex, 0,"||Has recivido un item" & fonttype_info)
-
- exit sub
Bueno ahi te pone el item que aclaraste arriva en el inventario, dsps faltaria que te avise por consola si no tenes espacio.. pero eso es facil, fijate en el code de la boveda o de algo.. lo que pasa es que lo hice sin visual basic recien jaja pero estoy seguro que anda.. y bueno fijate el code de la boveda para que te diga que tenes el inventario lleno
Saludos espero que te sirva
ACLARACION: donde dice NUMERO DE ITEM pones el numero de tu objeto y donde dice CANTIDAD DE ITEMS la cantidad que queres q te de al apretar el boton