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

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

End Sub