Можно ли создать программно объект Data

[Alexanbar]

Т.е. имеется ввиду эквивалент контрола Data с теми же свойствами и методами, причём работа с ним будет вестись из модуля или формы, на которой нет контролов Data

[A.A.Z.]

Код: Выделить всё

Sub Form_Load()
Dim Data1 As Data
Set Data1 = Me.Controls.Add("VB.Data", "Data1")
Data1.Visible = True
'и так далее
End Sub