MItaly, dopo ore di ricerca e prove, alla fine ho fatto quasi come hai postato tu, cambiano solo ste due righe

codice:
dim ptrCallback as new ProgressCallback (AddressOf Progress_Callback_Function)

intero = Decompress("nomefile.ext","nomefile2.ext",percentuale, ptrCallback)
ho messo il dim perche' ho visto che era messo in tutti gli esempi come se non si potesse mettere AddressOf direttamente, ho provato anche come hai postato e funziona, a sto punto tolgo il dim se non serve.

Grazie