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
Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 189