Imports System
Class MyGetTypeFromCLSIDSample
Public Shared Sub Main()
Dim myGuid1 As New Guid("11110710-0B41-1113-1111-00C04F8116E3")
Dim myType1 As Type = Type.GetTypeFromCLSID(myGuid1, True)
Console.WriteLine("The GUID associated with myType1 is {0}.", myType1.GUID.ToString())
Console.WriteLine("The type of the GUID is {0}.", myType1.ToString())
End Sub 'Main
End Class 'MyGetTypeFromCLSID