VB6运行时类型检索

如何在运行时获取VB6中的Object类型(作为字符串的名称就足够了)？

即：

If Typeof(foobar) = "CommandButton" Then ...

/编辑：澄清一下,我需要检查动态类型对象.一个例子：

Dim y As Object 

Set y = CreateObject("SomeType")

Debug.Print( <The type name of> y)

输出将是“CommandButton”

我认为你要找的是TypeName而不是TypeOf.

If TypeName(foobar) = "CommandButton" Then
   DoSomething
End If

编辑：你是什么意思动态对象？你的意思是用它创建的对象
CreateObject(“”),因为它应该仍然有效.

编辑：

Private Sub Command1_Click()
    Dim oObject As Object
    Set oObject = CreateObject("Scripting.FileSystemObject")
    Debug.Print "Object Type: " & TypeName(oObject)
End Sub

输出

对象类型：FileSystemObject