|
Dim loTextCtrl as
AcTextControl
Set loTextCtrl = New Persistent AcTextControl
loTextCtrl.Position.X=100
loTextCtrl.Position.Y=0
loTextCtrl.Size.Width=1000
loTextCtrl.Size.Height=250
loTextCtrl.BackgroundColor=Cyan
loTextCtrl.DataValue=row.GetValue
("address_addrnumber")
AddContent(loTextCtrl)
|