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