主题：e.cancle在内部函数中要如何用？

Dim tbn As String = Args(0)
Dim key As String = Args(1)
Dim Result As DialogResult
Result = MessageBox.Show("确定要删除[ " & Tables(tbn).Current(key) & " ]的所有资料吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    MessageBox.Show("[ " & Tables(tbn).Current(key) & " ]的所有资料已经删除成功!","提示")
    Tables(tbn).Current.Delete
Else
e.Cancel =True
End If
Return Nothing