Imports System
Class MyGetTypeFromCLSID
Public Shared Sub Main()
Dim myGuid1 As New Guid("1AE77DA4-1163-4ab3-BCD2-011B001EFB11")
Dim myType1 As Type = Type.GetTypeFromCLSID(myGuid1)
Console.WriteLine(myType1.GUID.ToString())
Console.WriteLine(myType1.ToString())
End Sub
End Class