Dim type As Type = yourObject.GetType() Dim typeName As String = type.FullName
全名将为您提供类型的完全限定名称,包括类型的命名空间。
有关可用的类型的更多信息,请参阅MSDN。