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