Someone

  if x<0 or y<0 or x>width or y>width then
    buttonStatus = 0
    me.invalidate(false)
  end if
  
  -- was changed to --
  
  dim b as boolean = not(x<0 or y<0 or x>width or y>width)
  dim bs as boolean = buttonStatus>0
  if b<>bs then
    buttonStatus = 0
    me.invalidate(false)
  end if