'********** Code Start **********' module name MUST be "modMDIClient"
' This module is only needed if you are using
' Access 2000. Under Access 97, you
' will be using Michael Kaplan's and Ken Getz's
' AddrOf function. For more details,
' see http://www.mvps.org/accessfr/api/api0031.htm
' The class needs to set a refer to itself
Public pobjMDIClient As CMDIWindow
Public Function WndProc( _
ByVal hWnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) _
As Long
' Whatever messages are received,
' just pass it on to the MDIClientWndProc
' message handler of the CMDIWindow
' instance currently held in pobjMDIClient
'
' This does NOT account for multi-instancing
' and trying to multi-instance the class will
' likely result in a GPF. But then again, you
' only have one MDIClient window to draw upon!
WndProc = pobjMDIClient.MDIClientWndProc( _
hWnd, _
Msg, _
wParam, _
lParam)
End Function
'*********** Code End **********