Imports System
Class MyGetTypeFromCLSID
Public Shared Sub Main()
Dim myGuid3 As New Guid("8D1111D3-625D-1111-1111-3DAD630ECC1B")
Dim myType3 As Type = Type.GetTypeFromCLSID(myGuid3, ".", True)
Console.WriteLine("The GUID associated with myType3 is {0}.", myType3.GUID.ToString())
Console.WriteLine("The type of the GUID is {0}.", myType3.ToString())
End Sub
End Class