سلام
برای اضافه کردن کنترل در زمان اجرا

Dim k As New TextBox
k.Top =10
k.Left = 10
Me.Controls.Add(k)
k.Show()