Here Is It::

Event OnAdd(byval Result as long) 'The Arg Is Optional

Dim Res as long

Private Sub Form_Load()
AddNums 10,10
end sub

private sub AddNums(a as long,b as long)
Res=a+b
RaiseEvent OnAdd(Res)
end sub

private sub Form_OnAdd(byval Result as long)
msgbox Result
end sub
__________

If You Want To Know More(Like Properties ) EMail me.