Option Explicit
Private Sub Form_Load()
Dim hTextBox As TextBox
Set hTextBox = Me.Controls.Add("VB.TextBox", "txtMain")
With hTextBox
.Move 0, 0, ScaleWidth, ScaleHeight
.Text = "Example"
.Visible = True
End With
End Sub
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 183