StatusBar1.Panels(1).Text = "使用者：" & System.Environment.MachineName & "/" & System.Environment.UserName
        Dim dMyDate As DateTime = DateTime.Now
        StatusBar1.Panels(2).Text = "现在时间：" & dMyDate.ToString