Option Explicit
Private WithEvents btnObj As TextBox
Private Sub Form_Load()
Set btnObj = Controls.Add("VB.Textbox", "btnObj")
With btnObj
.Visible = True
.Width = 3000
.Text = "This button was created on the fly!"
.Top = 1000
.Left = 1000
End With
End Sub
"A myth is not the succession of individual images,
but an integerated meaningful entity,
reflecting a distinct aspect of the real world."
___ Adolf Jensen
Reply With Quote
