本示例设置用户名缩写。

Application.UserInitials = "baa"