（一个关于焦点的有关问题），多谢

求助（一个关于焦点的问题），谢谢！
我一个界面上有几个Text1(i)     ：i=0   to   2
我想当焦点在Text1(0)上时BackColor颜色跟   其它几个txt不同，除了用以下这种方法还有没有更好的方法啊？
'-----------------------
Private   Sub   Text1_GotFocus(Index   As   Integer)
        Text1(Index).BackColor   =   &HC0E0FF
End   Sub
'-----------------------
Private   Sub   Text1_LostFocus(Index   As   Integer)
        Text1(Index).BackColor   =   &H80000005
End   Sub
'-----------------------
怎么判断一个窗口上的焦点当前光标是在哪个控件上啊？谢谢。。。



[解决办法]
me.activecontrol