webbrwser exec problem

I am having trouble specifying dontprompt options
I just don't seem to get it not to prompt for response when I ask to saveas
with filesname fully specified
Dim doOpt As SHDocVw.OLECMDEXECOPT
doOpt = SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER '<<<

is this is the one to suppress prompt?

Dim o As New Object()
Try
webBrowser.ExecWB(SHDocVw.OLECMDID.OLECMDID_SAVEAS, doOpt,
CType(strFileSpec, Object), o)
Catch
Throw (New Exception(Err.GetException().Message))
End Try

I did confirm that doOpt has the correct value of 2 but I am miffed why it
was ignored



.