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 TCSCsdnAxGrid As CSDN.CsdnAxDbGrid
MyForm.Controls.Add "CSDN.CsdnAxDbGrid", "MyTCSGrid", True
Set TCSCsdnAxGrid = MyForm.Controls.Item(MyForm.Controls.Count - 1)
TCSCsdnAxGrid.Top = 5
TCSCsdnAxGrid.Left = 5
TCSCsdnAxGrid.Width = MyForm.Width - 10
TCSCsdnAxGrid.Height = MyForm.Height - 10
'Присоеденим справочник единиц измерения к сетке (гриду)
TCSCsdnAxGrid.DataSource = Mes
'Сделаем первоначальную очистку
Call TCSCsdnAxGrid.Columns.Clear
'Создаем колонки для пользователя
Call TCSCsdnAxGrid.Columns.Add(Mes.Properties("ID"))
Call TCSCsdnAxGrid.Columns.Add(Mes.Properties("NOTE"))
Call TCSCsdnAxGrid.Columns.Add(Mes.Properties("NAME"))
MyForm.Show vbModal
Set TCSCsdnAxGrid = Nothing
Set MyForm = Nothing
Set Mes = Nothing
Set App = Nothing
Set TCS = Nothing