 7: sErr = "Out of memory"
        Case SE_ERR_PNF
            lErr = 76: sErr = "Path not found"
        Case SE_ERR_SHARE
            lErr = 75: sErr = "A sharing violation occurred."
        Case Else
            sErr = "An error occurred occurred whilst trying to open or print
             the selected file."
        End Select
                
        Err.Raise lErr, , App.EXEName &amp; ".GShell", sErr
        ShellEx = False
    End If

End Function
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#16