Imports System
Class MyGetTypeFromCLSID
Public Shared Sub Main()
Dim myGuid2 As New Guid("00011111-0000-0000-c000-000000000000")
Dim myType2 As Type = Type.GetTypeFromCLSID(myGuid2, ".")
Console.WriteLine("The GUID associated with myType2 is {0}.", myType2.GUID.ToString())
Console.WriteLine("The type of the GUID is {0}.", myType2.ToString())
End Sub
End Class