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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 174