本示例设置用户名缩写。
Application.UserInitials = "baa"