Non ho ben capito quale versione di VB usi, ma sul "vecchio" VB6 (ante .NET, insomma), una bella variabile dichiarata WithEvents, ti risolverebbe il problema.