Auto fade msgbox or popup box

SystemUtil.Run "iexplore", "mail.yahoo.com","M:\","open","3"

with browser("title:=Yahoo! Mail: The best web-based email! - Windows Internet Explorer").page("title:=Yahoo! Mail: The best web-based email!")
.sync
wait(3)
val=browser("title:=Yahoo! Mail: The best web-based email! - Windows Internet Explorer").GetROProperty("hwnd")
'window("hwnd:=" & val).type micF5
end with

Set sh=createobject("wscript.shell")
sh.Popup "ding",2,"ding1",(0+4)