Как программно удалить контрол с формы

Dim PauseTime, Start, Finish, TotalTime
SendKeys ("{F10}")
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
SendKeys ("{В}")
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
SendKeys ("{К}")
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
 
'код выше переводит форму в режим конструктора.Работает только для 'рууского офиса, если английский, то нужно изменить две последнии буквы в 'sendkeys кажется на v и с, точно не помню...(значащие буквы View и 'Constractor
 
Dim i As Long
 
Dim ctlButton As Control
 
 Set ctlButton = CreateControl(Me.Name, acCommandButton, , _
 , , 5200, 800, 1200, 400)
 DoCmd.Restore

Private Sub CommandButton1_Click()
Dim lbl As MSForms.Label
'создаем лейбол
Set lbl = Controls.ADD("Forms.Label.1", "MyLbl", True)
    lbl.Caption = "HI!!"
'Далее удаляем созданный лейбол
Controls.Remove lbl.Name
End Sub