主题：[求助]关于状态栏的显示代码

在研发人员信息窗口的afterload时间写了如下代码：

Dim Str1 As String = "今天是" & Date.today() &"    " & "当前窗口: " & Forms("研发人员信息窗口").Name
If StatusBar.Message1 IsNot Nothing Then
   StatusBar.Message1 = Str1
End If

在“返回主页”窗口的afterload事件写了如下代码：

Dim Str1 As String = "今天是" & Date.today() &"    " & "欢迎您研发管理系统"
If StatusBar.Message1 IsNot Nothing Then
  StatusBar.Message1 = Str1
End If

 

但是在两个窗口切换时，始终显示的是前一个窗口的状态栏信息，为何？

代码有误吧？