HSPTV!掲示板

よくIEのステータスバーに
ウェブページの読み込み状況を表すプログレスバーがありますよね。(IE9には無いみたいです。)
あれをどうやってやるのか色々サイトとかを見ましたけど、よくわからなかったので
質問させていただきました。
よければ、サンプルソースをください!
お手数をかけますが、よろしくお願いいたします<(_ _)>

ほい

#define DIID_DWebBrowserEvents2     "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"
#define DISPID_PROGRESSCHANGE     108
#define WS_VISIBLE 0x10000000
#define WS_CHILD 0x40000000
#define PBM_SETPOS	$00000402

axobj ie,"Shell.Explorer.2",640,450
ie->"Navigate" "http://www.yahoo.co.jp/"
comevent ie_event, ie, DIID_DWebBrowserEvents2,*event
winobj "msctls_progress32","",0,WS_VISIBLE|WS_CHILD,640,25
phwnd=objinfo_hwnd(stat)

stop
*event
	dispid = comevdisp(ie_event)
	if dispid = DISPID_PROGRESSCHANGE : gosub *OnPROGRESSCHANGE
	return


*OnPROGRESSCHANGE
	comevarg mount,ie_event,0
	comevarg max,ie_event,1
	if max=0:return
	if mount=-1:point=100:else:point=int(double(mount)/max*100.0)
	sendmsg phwnd,PBM_SETPOS,point,0
	return
	

ありがとうございます!おかげさまで解決いたしました!
hot様のおかげです!ﾟ(ﾟ´Д｀ﾟ)ﾟ