Public Sub RunGotFocus(pInternat As Boolean)
On Error Resume Next
pControl = ActiveControl.Name
AutoSelect Controls(pControl)
If pInternat = True Then
Internat Controls(pControl), True
Else
Internat Controls(pControl), False
End If
End Sub
RunGotFocus True 'True=打开输入法 False=关闭输入法