PrivateSubMap1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) IfToolbar1.Buttons(1).Value=tbrPressedThen SetMap1.Extent=Map1.TrackRectangle ElseIfToolbar1.Buttons(2).Value=tbrPressedThen DimrAsRectangle Setr=Map1.Extent r.ScaleRectangle2 Map1.Extent=r