控件焦点获得的另外方法
一般我们使用setfocus来获得焦点，但在实际的工作中，经常会发现setfocus也不是每种情况下，都听话的。
故设计如下另类点的方法来解决。
Private Sub ActiveCl(ControlName As String)
'********************************************************************
' 名称: ActiveCl
' 作用: 模拟键盘操作,使任意控件获得焦点
'
' 输入值: ControlName As String
' ControlName 控件名称
' 作者: beenet
' 日期: 2009-2-10
' 注释: 例:Call ActiveCl("Text1")
' 注意: ControlName所属控件属性项"制表位"不能为否
'********************************************************************
On Error GoTo Err_ActiveCl
SendKeys "{TAB}", True
Do While Me.ActiveControl.Name <> ControlName
SendKeys "{TAB}", True
Loop
Exit_ActiveCl:
Exit Sub
Err_ActiveCl:
Select Case Err
Case 0
Case Else
MsgBox Err.Description
Resume Exit_ActiveCl
End Select
End Sub
