Как сделать вставляемый блок видимым?

Если было-бы так просто, не спрашивал бы.Неужели больше нельзя ничего придумать?

'ВСТАВКА БЛОКА(с запросом точки вставки)
Sub Example_InsertBlock()
    Dim blockObj As AcadBlock
    Dim insertionPnt(0 To 2) As Double
    Dim insertPnt As Variant
    Dim circleObj As AcadCircle
    Dim center(0 To 2) As Double
    Dim radius As Double
    Dim blockRefObj As AcadBlockReference
'Создание блока:
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
' "Bl"-имя блока(любое)
Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "Bl")
'Создание и добавление объекта в блок:
center(0) = 0: center(1) = 0: center(2) = 0
radius = 1
    Set circleObj = blockObj.AddCircle(center, radius)
' Указываем точку вставки:
'Хотелось бы, чтобы здесь был виден
'вставляемый блок
  insertPnt = ThisDrawing.Utility.GetPoint _
(, vbCrLf & "Укажите точку вставки:")
' Вставка блока в чертеж:
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock _
    (insertPnt, "Bl", 1#, 1#, 1#, 0)
End Sub

Да, жалко, что никто не может помочь.

не знаю поможет ли, но
попробуй отслеживать координаты курсора и отрисовывать блок через заданый интевал времени, ну и удалять его если координаты курсора изменились. (не пробовал и не знаю возможно ли. просто пришла в голову такая мысля =))

Идея интересная, только пока не укажешь точку вставки программа не пойдет дальше. Она ведь ждет.