>でんぺんさん その方法だとNEXTが無いためエラーになってしまいますよ。 戻り値を利用するなら関数にする必要がありますね。 DEF CHKBTN(X,Y) BTN=FALSE IF LEN(BTX)<1 THEN RETURN FALSE FOR I=0 TO LEN(BTX)-1 IF X>=BTX[i] && X < BTX[i]+BTW[i] && Y==BTY[i] THEN BTN=I:BREAK NEXT RETURN BTN END これでどうでしょうか？