Passing document argument to form load sub

[em07189]

Hi everyone!

I have the following sub in a class module, and i want to pass the DocumentObject argument to a form load sub, How can i do this?
thanks.

*******Class module ****************

Private Sub MyAppEV_OnCloseDocument( _
ByVal DocumentObject As Document, _
ByVal FullFileName As String, _
ByVal BeforeOrAfter As EventTimingEnum, _
ByVal Context As NameValueMap, _
ByRef HandlingCode As HandlingCodeEnum _
)


Msgbox "the document name is "&DocumentObject

End Sub