关于msgbox的小问题

Question

我想实现这样的功能：msgbox弹出一句话“是否执行此功能”，然后有两个选择 选“是”就执行相应的功能代码，选“否”msgbox消失回到原状态 。还望大家给予指点，谢谢！

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = 1
    x = MsgBox("真的要关闭这个窗口么？", vbYesNo + vbQuestion, "请问")
    If x = vbYes Then
        Unload Me
    End If
End Sub

Answer 2

    Dim i As Integer    i = MsgBox("是否执行此功能？", vbQuestion Or vbYesNo Or vbDefaultButton2, App.Title)
    If i = 6 Then
        '执行相应的功能代码
        
    End If

Answer 3

应该不是说你，是楼主，mmd没那金刚钻，偏找瓷匠活。