vb 这个该如何改

改成这样：
Private Sub Form_Unload(Cancel As Integer)
Dim l As Integer
l = MsgBox("是否保存?", vbYesNoCancel, "确认")
If l = vbYes Then
Command78_Click
End
End If
If l = vbNo Then
End
End If
If l = vbCancel Then
End If
End Sub

l = MsgBox("是否保存?", vbYesNo + vbQuestion, "确认")
改成
l = MsgBox("是否保存?", 19, "确认")
l的值可以用print l查看

Private Sub Form_Unload(Cancel As Integer)
Dim l As Integer
l = MsgBox("是否保存?", vbYesNoCancel + vbQuestion, "确认")
If l = vbYes Then call Command78_Click
If l = vbNo Then End
if I=VBCancel then exit sub
End If

改一句如下：
l = MsgBox("是否保存?", vbYesNoCancel + vbQuestion, "确认")

点击 No 应该有一句
cacel=True