Оператор Is и передача типа в процедуру - VB

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

Как заставить работать такой код?

Private Function CountForms(formType As Form, fState As Long) As Integer
Dim tmpForm As Form
 
 For Each tmpForm In VB.Forms
  If TypeOf tmpForm Is formType Then
   If tmpForm.stForm = fState Then
    CountForms = CountForms + 1
   End If
  End If
 Next tmpForm
 
End Function

Т.е. мне нужна функция которая будет считать кол-во форм в приложении определенного типа. Не работает строчка (If TypeOf tmpForm Is formType Then) Может как то можно обойти это?

Решение задачи: «Оператор Is и передача типа в процедуру»

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

                            Private Sub Form_Click()
    MsgBox CountForms(vbNormal)
'    MsgBox CountForms(vbMinimized)
End Sub
'
Private Function CountForms(ByVal fState As Long) As Integer
    Dim tmpForm As Form
'
    CountForms = 0
    For Each tmpForm In VB.Forms
        If tmpForm.WindowState = fState Then
            CountForms = CountForms + 1
        End If
    Next tmpForm
'
End Function
'
Private Sub Form_Load()
    Form2.Show
End Sub
'
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Unload Form2
End Sub
                        