去编写SystemIdle事件
If Forms.ActiveForm IsNot Nothing Then basemainform.text = Forms.ActiveForm.NameEnd If