Добавление TextBox на форму - VB

Формулировка задачи:

Мне нужно программно вставить TextBox Принцип действия - по нажатию на кнопку "добавить/удалить" должен добавляться/удаляться TextBox взаданных координатах.

Решение задачи: «Добавление TextBox на форму»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim WithEvents TextBox1 As VB.TextBox ' объявляешь. Если нужны будут события просто в списке слева выбираешь его и выбираешь событие (и оно появиться), как-то так...
 
' где-нибудь это дело инициализируешь
Set TextBox1 = Controls.Add("VB.TextBox", "TextBox1", Me) ' 1 - тип контрола, 2 - название, 3 где располагать (напр. Me - форма)
With TextBox1
    .Top = 10
    .Left = 10
    .Width = 1000
    .Height = 10
    .Text = "Some_Text"
' короче, любые свойства настраиваешь, какие потребуются
End With
 
' кнопка показать
Private Sub Command1_Click()
TextBox1.Visible = True
End Sub