Dim a As Reflection.Assembly =
Reflection.Assembly.LoadFrom("fileLocationGoesHere")
Dim i As Integer, guid As String
For i = 0 To a.GetCustomAttributes(False).GetUpperBound(0)
Dim obj As Object = a.GetCustomAttributes(False).GetValue(i)
If TypeOf (obj) Is System.Runtime.InteropServices.GuidAttribute Then
guid = CType(obj,
System.Runtime.InteropServices.GuidAttribute).Value
End If
Next
Dim a As Reflection.Assembly =
Reflection.Assembly.LoadFrom("fileLocationGoesHere")
Dim i As Integer, guid As String
For i = 0 To a.GetCustomAttributes(False).GetUpperBound(0)
Dim obj As Object = a.GetCustomAttributes(False).GetValue(i)
If TypeOf (obj) Is System.Runtime.InteropServices.GuidAttribute Then
guid = CType(obj,
System.Runtime.InteropServices.GuidAttribute).Value
End If
Next