主题：关于在窗口全局事件“MouseEnter”中写代码的请助

在一个窗口中，不想在每个控件的“MouseEnter”中写代码来实现鼠标进入控件提示（每个控件都出现提示），如何在全局表中的“MouseEnter”写代码呢？如何写，下面的写法好像不行。如何获得当前的焦点落在何处呢？

'''
If e.Form.Controls("User Name").Focused = True Then
    e.Sender.ToolTip = "如果不想登陆请点击此按钮。"
End If
'----------------------------------------------------------------------------------------
If e.Form.Controls("Pass Word").Focused = True Then

   ***************

End If
'----------------------------------------------------------------------------------------
If e.Form.Controls("Button1").Focused = True Then

   ***************

End If
'----------------------------------------------------------------------------------------
If e.Form.Controls("Button2").Focused = True Then

   ***************
End If
'----------------------------------------------------------------------------------------