123456789101112131415 Dim foundfound = 0FindPic..图52611.. intX,intYifintX >=0 And intY >=0 Thenfound = 1ElseFindPic..图2.. intX,intYifintX >=0 And intY >=0 Thenfound = 1EndifEndif iffound = 1 Then//继续操4102作1653内内容容endifdofindpic 976,749,1133,791,"attachment:\1.bmp",0.9,intx,intyif intx > 0 and inty > 0 then //找到了 goto 跳出循环 else end if findpic 976,749,1133,791,"attachment:\2.bmp",0.9,intx,intyif intx > 0 and inty > 0 then //找到了 goto 跳出循环 else end if loop rem 跳出循环请过目~亲~