Whoops! Missed a line of code:

>You can also eliminate the overhead of the shape object by using the form's box() method to highlight the checkbox by using following timer.timer() code:
>
>oObject = thisform.check1
>thisform.drawWidth=2
Thisform.DrawMode = 6
>thisform.CurrentX = oObject.Left - 1
>thisform.CurrentY = oObject.Top + 5
>thisform.box(oObject.Left + 13, oObject.Top + 20)
>
>>Good idea. I Think I'll implement that.
>>
>>>You can also make this effect more 'cursor-like' by making it blink with a >timer. Try adding a timer with a 500 interval with the following code in the >timer event:
>>
>>>thisform.shape1.visible = ! thisform.shape1.visible
>>
>>>Then enable the timer on gotfocus(), and disable on lostfocus()