проблема со ссылкой на textBox

[tolikman]

есть форма и в ней код:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Public tempBoxDefaultHeight As Double
Public WithEvents tempBox As MSForms.textBox
...
Private Sub t1__Change()
    showTempBox (t1_)
End Sub
...
Public Sub tempBox_Change()
    Dim wdth  As Double
    wdth = tempBox.Width
    tempBox.AutoSize = True
    tempBox.AutoSize = False
    tempBox.Width = wdth
End Sub
Public Sub showTempBox(ByRef txtBx As MSForms.textBox)
    Dim sHeight As Double
    Dim eHeight As Double
    Dim i As Integer
    If tempBox <> Nothing Then tempBox.Height = tempBoxDefaultHeight
    Set tempBox = txtBx
    tempBoxDefaultHeight = tempBox.Height
    sHeight = tempBox.Height
    tempBox_Change
    eHeight = tempBox.Height
    For i = 1 To 4
        tempBox.Height = (eHeight - sHeight) / 5 * i + sHeight
        Sleep (50&)
        addR.Repaint
    Next i
End Sub...

при возникновении события t1__Change выводит ошибку в строке выделенной оранжевым цветом - type mismatch
Подскажите в чем проблема?

[IgorGO]

а если это:
Public Sub showTempBox(ByRef txtBx As MSForms.textBox)
так написать:
Sub showTempBox(ByRef txtBx)

[tolikman]

Спасибо IgorGO, разобрался сам, проблема была в другом.
Передал в функцию переменную другим способом:
showTempBox txtBx:=t1_
и все заработало. Но все равно не понял в чем именно проблема была, ведь первый вариант ничем не хуже этого.

[EducatedFool]

Не проверял код, но мне кажется, что в строке showTempBox (t1_) надо убрать скобки.
Или написать так: call showTempBox (t1_)

А что, конструкция If tempBox <> Nothing Then у Вас работает нормально?
Я думал, надо так: If not tempBox is Nothing Then

[tolikman]

EducatedFool?, конечно If tempBox <> Nothing Then не работает нормально, просто думал о проблеме самой функции и написал "на скорую руку". потом решил первую и вспомнил про этот косячок.