去编写SystemIdle事件
If Forms.activeform IsNot Nothing Then StatusBar.Message1 = "当前窗口:" & Forms.Activeform.nameElse StatusBar.Message1 = ""End If