Добренькой ночи/дня!

Есть простая функция

Private Function MYFUNC (ctl1 As control)
Dim Переменная1
Переменная1=3000
ctl1.height = ctl1/Переменная1
End function

Пытаюсь при нажатии кнопки изменить высоту поля (упрощенно)

Private Sub Кнопка1_Click()
call MYFUNC (Поле1)
End sub

Но высота Поля1 не меняется. Если вместо вызова функции я пишу: поле1.height = поле1/Переменная1, то все работает, а так нет.

http://www.sql.ru/forum/1245964/svoya-funkciya