添加按钮1代码 弹出简单提示框 添加按钮2代码 弹出处理反馈操作的提示框， 如果用户确认，则执行确认方面的操作 如果用户取消，则执行取消方面的操作添加按钮3代码 在反馈提示框中加入定制的图标生成exe文件进行测试 弹出。

弹出提示框一般有3种 1alert 普通提示框2prompt 可输入的提示框3confirm 可选择的提示框下面举个例子lt！doctype html Document第一种alert第二种prompt第三种confirm function mal。

responsewrite quotquotresponsewrite quotalert#39恭喜，注册成功单击“确定”登陆本站#39quotresponsewrite quotquotresponsewrite quotquot。

Private Sub Command1_ClickTimer1Enabled = True#39打开计时器 End Sub Private Sub Form_LoadTimer1Enabled = False#39关闭计时器 Timer1Interval = 3000#39计时器间隔3000毫秒，即3秒 End Sub Private Sub Timer1_。

Msgbox quot请注意quot，48，quot警告quot。

用MsgBox 函数，参见以下代码 Dim Msg， Style， Title， Help， Ctxt， Response， MyString Msg = quotDo you want to continue ？quot #39 定义信息 Style = vbYesNo + vbCritical + vbDefaultButton2 #39 定义。