如何判断一个 button控件是否获得焦点

Question

这好像不是一个简单的问题，请问：如何判断一个 button控件是否获得焦点

Answer 1

Private Sub Command1_GotFocus(Index As Integer)
 MsgBox Index & "我的得到了焦点"
End Sub

Answer 2

用一个最笨的方法，利用gotfocus事件
在一个窗体上加2个按钮和一个文本框，代码如下
Private Sub Command1_GotFocus()
Text1.Text = "1"
End Sub
Private Sub Command2_GotFocus()
Text1.Text = "2"
End Sub
用Tab键切换，看文本框变化，方法很笨，不要笑我，呵呵

Answer 3

if Me.ActiveControl.Name="Command1" then  'me为窗体
    msgbox "Command1 获得焦点"
end if