Imports System
Class MainApp
Public Shared Sub Main()
Try
Dim myString1 As String = "DIRECT.ddPalette.3"
Dim myString2 As String = "WrongProgID"
Dim myType1 As Type = Type.GetTypeFromProgID(myString1, True)
Console.WriteLine(myType1.GUID.ToString())
Dim myType2 As Type = Type.GetTypeFromProgID(myString2, True)
Catch e As Exception
Console.WriteLine("Source: {0}", e.Source.ToString())
Console.WriteLine("Message: {0}", e.Message.ToString())
End Try
End Sub 'Main
End Class 'MainApp