subroutine NULLSUBROUTINE(hwnd, uMsg, idEvent, dwTime)
!MS$ATTRIBUTES STDCALL, ALIAS : '_NULLSUBROUTINE@16' :: NULLSUBROUTINE
integer*4 hwnd, uMsg, idEvent, dwTime

hwnd    = hwnd
uMsg    = uMsg
idEvent = idEvent
dwTime  = dwTime
return

end 
