Private Sub Form_Load()
Combo1.AddItem "询问"
Combo1.AddItem "警告"
Combo1.AddItem "错误"
Combo1.AddItem "提示"

Combo2.AddItem "确定"
Combo2.AddItem "确定，取消"
Combo2.AddItem "是，否"
Combo2.AddItem "是，否，取消"
Combo2.AddItem "重试，取消"
Combo2.AddItem "终止，重试，忽略"
我现在要实现一个MSGBOX 显示用户自己定义的样式，选择相应的COMBO执行相应的提示信息，
那么这里的COMBO1，COMBO2在MSGBOX里面这写更好， 总不能用IF COMBO1。TEXT=询问 THEN 这样很麻烦

有好办法的同志们贡献哈啊

VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。
VbInformation 64 显示 Information Message 图标。

值对应关系：16*i
所以只要和ListIndex对应就可以了。

这个我知道 但是如何让这里的询问对应相应的代码？有没有好的办法 定义一下 询问 对应 16
Combo1.AddItem "询问"
Combo1.AddItem "警告"
Combo1.AddItem "错误"
Combo1.AddItem "提示"

所以只要和ListIndex对应就可以了。

我的意思是要把MSGBOX这个语句尽量简单化， 直接想这样
MSGBOX（TEXT1。TEXT ，COMOB1 ，COMOB2）
有没有办法 不用IF语句

都说了用listindex！！！

MsgBox Text1.Text, (Combo1.ListIndex + 1) * 16, Combo2

谢拉````太笨了 没想到这个办法