Загрузка объектных переменных объектами формы - VB

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

Добрый день или ночь! Я так понимаю, те контролы которые находятся на форме-это ОБЪЕКТЫ формы! Такая проблема: как загрузить в объектные переменные ссылки на объекты находящиеся на форме? Т.е. командами типа Dim obj_1 As Object/или конкретный объект Dim obj_2 As Object/или конкретный объект Dim obj_3 As Object/или конкретный объект SET obj_1 = NEW объект_строка_текста_в_TextBox SET obj_2 = NEW объект_строка_текста_в_ Label SET obj_3 = NEW объект_ ListBox и др. объекты формы Или командой set obj_n = CreateObject(объекты_формы) Так например у меня команда

Dim obj As Object
 Set obj = CreateObject(Me.Text1.Text)

Вылетает в ошибку: Oшибкa вo вpeмя выпoлнeния пpoгpaммы '429': Кoмпoнeнт ActiveX нe мoжeт coздaть oбъeкт И другие подобные команды связанные с формай вылетают также! Прошу помочь, желательно с живым примером! СПВСИБО!

Решение задачи: «Загрузка объектных переменных объектами формы»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
    Dim obj
    Me.Text1.Text = "MediaPlayer.MediaPlayer" 'здесь мы присваеваем свойству ProgID
    Set obj = CreateObject(Me.Text1.Text)
    obj.Open "\WINDOWS\Media\Windows Vista Notify.wav" ' или например "\WINDOWS\Media\Chimes.wav"
End Sub
                        