i titoli i titoli leggi il regolamento

devi dichiarare la classe withevents
codice:
dim withevents xxx as clsblabla
'dove la utilizzi per la prima volta
set xxx = new clsblabla