控件的焦点发生转移时，它的容器有没有相关事件来捕捉？

Question

Dim aa
Private Sub Timer1_Timer()
If aa <> Me.ActiveControl.Name Then
Label1.Caption = Me.ActiveControl.Name
aa = Me.ActiveControl.Name
End If
End Sub

Answer 1

to: dbcontrols(泰山)　
有没有更好的方法，问题是当一个textbox焦点离开时，将其Text合计到另一个文本框中，用这种方法就不好了。

Answer 2

对不起，应该是text1_lostfocus(index as integer,...)
{
select index
case
case
end select
}

Answer 3

to: dbcontrols(泰山)　
不是呀，就是一个让用户可以自已定义的窗体，在其中的控件全是动态添加的（与表字段一一对应），由于事先不知道要添加什么控件，所以不能用VBControlExtender来捕捉动态添加的控件的事件，能不能在窗体的某个事件中或是采用其它方法来实现特定的问题（如当一个textbox焦点离开时，将其Text合计到另一个文本框中，还有其它的。）