Hello Guys !, WARNING !, this is long

I have this code :
PUBLIC ox
ox = CREATEOBJECT("MyInternetExplorer")
ox.VISIBLE = .T.
ox.oWeb.navigate("R:\bmps\009_6a.jpg")


DEFINE CLASS MyInternetExplorer AS FORM
ADD OBJECT oWeb AS CWeb
CAPTION = "My Internet Explorer"

PROCEDURE INIT
THISFORM.LEFT = 0
THISFORM.WIDTH = SYSMETRIC(1) * 3/4
THISFORM.HEIGHT = SYSMETRIC(2) * 3/4

THIS.RESIZE

PROCEDURE RESIZE
DODEFAULT()
THIS.oWeb.RESIZE

ENDDEFINE

DEFINE CLASS CWeb AS OLECONTROL
OLECLASS = "Shell.Explorer.1"
PROCEDURE RESIZE
THIS.WIDTH = THISFORM.WIDTH - 60
THIS.HEIGHT = THISFORM.HEIGHT - 60
PROCEDURE REFRESH
NODEFAULT
ENDDEFINE

After it runs I have to doble click on it so it can show the picture,
I have to actually double click manually on it, I can't do this.DblClick(), what can I do to avoid that ?

This.Thanks("in advance")

"A picture is worth more bandwith than a thousand words..."