Hola jodijo5!
WithEvents sirve para que te ahorres los controles pero que puedas tener sus "Eventos", por ejempolo suelo usar variables Recordset de la siguiente forma:
Dim WithEvents rsClientes as ADODB.Recordset
de esta forma me ahorro el control de ADO y puedo tener todos los Eventos de este tipo, espero haber sido claro, saludos.