[ű]
=ƥɫ
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[]
Sub Main()
	Dim b,c,d,e
	'0,01024,769ɫΪ&HFFFAF6ɫλ,b,c
	HColor.FindColor 0,0,1024,769,&HFFFAF6,b,c
	'0,01024,769ɫΪ&HFFFAF6ɫλ(ƶΪ0.9),d,e
	HColor.FindColorEx 0,0,1024,769,&HFFFAF6,0.9,d,e
	MsgBox "FindColor:x:" & b & " " & "y:" & c
	MsgBox "FindColorEx:x:" & d & " " & "y:" & e
End Sub
[]
