VB帮找个msgbox错误!

来源:百度知道 编辑:UC知道 时间:2024/06/29 02:06:18
Private Sub Image6_Click()
Dim re As Integer
re = MsgBox( "结束本程序”,"& (Chr(13) & Chr(10)) & "你确定此次操作吗?", vbYesNo, 温馨提示,,,) = vbOK
End Sub
总是出错!
再麻烦一下,如果修改成功后,怎样来处理用户的点击?如:点了yes,或no
我想这样实现它,如果用户点了yes,就end 如果是no 则不作不结束。

Private Sub Image6_Click()
Dim re As Integer
re = MsgBox("结束本程序”," & (Chr(13) & Chr(10)) & "你确定此次操作吗?", vbYesNo, "温馨提示")
If re = vbYes Then
End
End If

End Sub