set object = new Class
的时候被触发。离开的时候销毁可以:
Private Sub Class_Terminate() Set shortcutFont = Nothing End Sub