Attribute VB_Name = "modMDIClient" Option Compare Database Option Explicit ' 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/access/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