سف اخ جمال

أعمل الآتي


كود:
Case "ZoomOut"
        .MousePointer = esriPointerZoomOut


وهذا الكود تضعه في Mapcontrol1

كود:
ElseIf .Item("ZoomOut").Value = tbrUnpressed Then
    Dim pEnv As IEnvelope
    Set pEnv = MapControl1.Extent
    pEnv.Expand 1.5, 1.5, True
    MapControl1.Extent = pEnv
لاحط الكلمة الي بالون الاحمر لابد تغير الكود السابق من tbrPressed إلى tbrUnpressed

واذا لم تنجح هذه العمليه اخبرني علماً انها ناجحه عندي