jÁ PRECISEI FAZER ISSO UMA VEZ para escrever uma rotina de barra de status.
na época eu usei uma variável para receber o objeto tipo assim
'no declarations do form
dim OB_F as object
no got focus de cada componente ponha
SET OB_F=NOMEDOOBJETO
se forem objetos indexados fica mais fácil, basta pegar o número do index.