If MsgBox("确认使用蓝底白字?", 36, "蓝底白字") = vbYes Then Options.BlueScreen = TrueElse Options.BlueScreen = FalseEnd If