>' Visual Basic >lpPrevWndProc = SetWindowLong(gHW, GWL_WNDPROC, AddressOf WindowProc) > >' My Visual Foxpro attempt to convert the call >lpPrevWndProc = SetWindowInteger(gHW, GWL_WNDPROC, @WindowProc) > > >' Visual Basic Function >Function WindowProc(ByVal hw As Long, ByVal uMsg As _ >Long, ByVal wParam As Long, ByVal lParam As Long) As _ >Long > Debug.Print "Message: "; hw, uMsg, wParam, lParam > WindowProc = CallWindowProc(lpPrevWndProc, hw, _ > uMsg, wParam, lParam) >End Function > >' Visual Foxpro attempt at converting the call >Function WindowProc >PARAMETERS hw,uMsg,wParam, lParam >LOCAL lnWindowProc as Long > DEBUGOUT "Message: " + " " + hw + " " + uMsg + " " + wParam + " " + lParam > lnWindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam) > RETURN lnWindowProc >EndFunc