我一个界面上有几个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
'-----------------------------------------------------------
怎么判断一个窗口上的焦点当前光标是在哪个控件上啊？谢谢。。。

上面的方法..已经是最好的了.

const accolor =&H80000005

Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = accolor
End Sub

都只有一行代码了,还想要多简单!