Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Set TCS = CreateObject("CSDN.TCS")
Set App = TCS.Login
'Получим справочник единиц измерения
Dim Mes As CSDN.Mesuriments
Set Mes = App.Mesuriments
'Создадим форму для отображения справочника единиц измерения
Dim MyForm As UserForm1 'для такого определения в VBA проекте необходимо иметь форму с именем UserForm1
Set MyForm = New UserForm1
MyForm.Caption = "Отображение формы TechnologiCS на форме VB"
MyForm.Left = 10
MyForm.Top = 10
MyForm.Width = 600
MyForm.Height = 400
'Создадим форму TechnologiCS, на которой будем отображать наш справочник.
Dim TCSCsdnAxForm As CSDN.CsdnAxForm
MyForm.Controls.Add "CSDN.CsdnAxForm", "MyTCSForm", True
Set TCSCsdnAxForm = MyForm.Controls.Item(MyForm.Controls.Count - 1)
TCSCsdnAxForm.Top = 5
TCSCsdnAxForm.Left = 5
TCSCsdnAxForm.Width = MyForm.Width - 10
TCSCsdnAxForm.Height = MyForm.Height - 10
'Покажем справочник единиц измерения
Call Mes.Show(TCSCsdnAxForm)
MyForm.Show vbModal
'Скроем справочник единиц измерения
Call Mes.Hide
Set TCSCsdnAxForm = Nothing
Set MyForm = Nothing
Set Mes = Nothing
Set App = Nothing
Set TCS = Nothing