Imports System
Class MyGetTypeFromCLSIDSample
Public Shared Sub Main()
Dim myGuid1 As New Guid("1DCD0710-0B41-11D3-A565-00C04F8EF6E3")
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
End Class