分数不多，恳求帮忙！

Question

我有一个窗体，里面有菜单，Treeview等控件，请问我怎么判断那个是菜单那个是控件呢？
For Each ctr In Controls
    if ctr is menu then
       msgbox ctr.name
    end if
next
这样不行，怎么办呢？

Answer 1

这样：
Private Sub Command1_Click()
Dim ctr As Object
For Each ctr In Me.Controls
    If TypeName(ctr) = "Menu" Then
       MsgBox ctr.Name
    End If
Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim ctr As Object
For Each ctr In Me.Controls
    If TypeOf ctr Is Treeview Then
       MsgBox ctr.Name
    End If
Next
End Sub