怎么声明让自定义的事件像QueryUnload事件有一个返回的参数？标题说不清意思，进来理解

就是例如，窗体的QueryUnload事件，我们来看一下这个事件的声明：
VB code

Private Sub FormMain_QueryUnload(cancel As Integer, UnloadMode As Integer)
……

注意到了吗？有一个名为Cancel的参数，根据MSDN所说，只要将Cancel得值设置成非0以外的任意整数，就能阻止窗体关闭，例如：
VB code

Private Sub FormMain_QueryUnload(cancel As Integer, UnloadMode As Integer)
cancel=1

好了，关键就在这了，自己怎么声明才能让自己设计的事件有这样一个参数，可以回传回来？就说怎么设计一个像QueryUnload事件的参数cancel那样的参数。

呵呵，这个问题简单了
Public Event MyEvent(p1 As Long, p2 As Integer, p3 As String) '声明
.....
RaiseEvent MyEvent(a, b, c) '激发事件，若参数传递方式为引用,则你可以
if a=... then
if b=... then 
...