Как передать правильно форму в процедуру? - VB

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

Приветствую Вас знатоки!
Помогите решить на первый взгляд элементарную проблему.
Приведенный код ниже выдает ошибку при выполнении. "свойство или метод Height не поддерживается". Не пойму как такое возможно? Помогите пожалуйста.

DoStart( DocType  )
   DocType =  
    CustomizeForm UserForm1
  
    CustomizeForm UserForm2
  endif

 CustomizeForm(aUsForm  UserForm)
 aDeltaForm   

  aDeltaForm = GetSystemMetrics(SM_CYCAPTION) + 
  
   CellsValue =  
     aUsForm      
      .OptionButton2.Value = True
      .OptionButton1.Enabled = False
      .OptionButton2.Enabled = False
      .LabelProgress.Height = 

      .Height = .LabelProgress.Top + .LabelProgress.Height + aDeltaForm 

Решение задачи: «Как передать правильно форму в процедуру?»

textual
                            Листинг программы 
                        
                            <font color="blue">Sub</font> CustomizeForm(<font color="blue">ByRef</font> aUsForm)

    <font color="blue">With</font> aUsForm
      .CheckBox1.Caption = <font color="teal">"Test"</font>

      .Height = .CheckBox1.Top + <font color="darkblue"><b>50</b></font>
      
    <font color="blue">End</font> <font color="blue">With</font>

<font color="blue">End</font> <font color="blue">Sub</font>