主题：请高手赐教如何使用MessageBoxEx外部对象

MessageBoxEx 的范例

Sub Test()
 Dim d '创建一个变量
Set d = CreateObject("WWSCommon.MessageBoxEx")
d.Button = 3'显示是、否和取消按钮
result = d.DoModal("你愿意给我点钱吗","提问")
if result = 6 then
   Msgbox "谢谢你太大方了"
end if
End Sub

InputBoxEx 的范例

Sub Test()
 Dim d '创建一个变量

Set d = CreateObject("WWSCommon.InputBoxEx")
d.Title = "阿拉贡"
d.Description = "请输入要给我转帐的金额"
d.Type=0'普通文本框
result = d.DoModal
if result = 1 then
 msgbox "谢谢你这么大方给我转帐"&d.text&"元"
end if
End Sub