呃，代码你写到哪个事件了？加入msgbox，看是否弹出对话框。
msgbox(User.Type)
If User.Type <> UserTypeEnum.Developer
msgbox(22222) forms（"主窗口"） = False
End If
加好友 
发短信
Post By：2015/5/17 23:45:00 [显示全部帖子]
