城班说过利用提示文本ToolTip实现，一直没成功。
从英文论坛上找了找，其中讲到利用库中的Siemens HMI Symbolic Library的控件，Symbolic Library控件都支持"鼠标移动事件"，利用该事件即可实现类似网页中的OnMouseHover效果。
Sub MouseMove(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
If (x<0) Or (x>item.Width) Or y<0 Or y>item.Height Then
'Mouse Move Out
Else
'Mouse Move In
End If
End Sub