32-Bit GetModuleUsage Workaround

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