I have found a solution to the problem of GetModuleUsage not workingin 32-bit VB4. The TaskID returned by Shell can be used by AppActivatelike this:
TaskID = Shell("DOSAPP.EXE", _ vbNormalFocus) On Error GoTo finished While True DoEvents AppActivate TaskID Wendfinished: On Error GoTo 0