---
title: "Visual Basic"
type: guide
api: [api7]
tags: [guide, api7, cr109287]
sources:
  - cr109287.html
---

*Создание прикладных библиотек  > Рекомендации по созданию прикладных библиотек  > Рекомендации по использованию метода IUnknown::QueryInterface *

Dim kompasDoc As KompasAPI7.KompasDocument
Dim doc2D As KompasAPI7.DrawingDocument
Set kompasDoc = KomApp.ActiveDocument
Set doc2D = kompasDoc // Здесь выполнится QueryInterface.
