Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
    ' Этот пример перехватывает событие BeginDoubleClick.
    '
    ' Это событие вызвано, когда рисунок получает двойной щелчок мыши
    ' в его рабочей области.
    '
    ' Чтобы вызвать это событие: Позиционируйте мышь поверх рабочей
    ' области окна рисунка и дважды щелкните левую кнопку мыши

    ' Используйте переменную "PickPoint", чтобы определить, где на рисунке щелкнул пользователь
    MsgBox "Рисунок был только что дважды нажат в:" & vbCrLf & _
            PickPoint(0) & vbCrLf & _
            PickPoint(1) & vbCrLf & _
            PickPoint(2)
End Sub