○確実にその画像が存在する場合（どんなに時間がかかっても画像を待つ必要がある場合）
引数	：	sFileName　ファイル名(拡張子を含むフルネームで)
Procedure ClickImg(sFileName)
	While True
		If ChkImg(sFileName, -1) Then Break
		Sleep(0.2)
	WEnd
	Btn(Left, Click, G_IMG_X+5, G_IMG_Y+5)
FEnd


○その画像が出るかどうかわからない場合（適当な時間でタイムアウト（諦めさせる）場合）
引数	：	sFileName　ファイル名(拡張子を含むフルネームで)
戻り値	：	画像が見つかった場合→True
			見つからなかった場合→False
Function ClickImg(sFileName)
	Dim nTimeOut = 90				//何秒まで待つか(秒)
	Dim nSecond = 0

	While True
		Ifb ChkImg(sFileName, -1)
			Break
		Elseif nSecond > nTimeOut
			Result=False
			Exit		//なくても動きますが「念のため」です。
		Endif
		Sleep(1)
		nSecond = nSecond + 1
	WEnd
	Btn(Left, Click, G_IMG_X+5, G_IMG_Y+5)
	Result=True
FEnd