Set rect = Map1.TrackPolygon
Это функция MapObjects, и пока не закончиться процесс рисования не даст фокуса никакому другому объекту. Да и сам Map никакие другие функции не может выполнить... Так что, придется писать код самому... или вписаться в экстент...