Imports System
Imports System.Reflection
Imports Microsoft.VisualBasic
Public Class Fieldinfo_IsPinvoke
Public myField As String = "A public field"
Public Shared Sub Main()
Dim myObject As New Fieldinfo_IsPinvoke()
Dim myType1 As Type = GetType(Fieldinfo_IsPinvoke)
Dim myFieldInfo As FieldInfo = myType1.GetField("myField",BindingFlags.Public Or BindingFlags.Instance)
Console.Write(myType1.FullName)
Console.Write(myFieldInfo.GetValue(myObject))
Console.Write(myFieldInfo.IsPinvokeImpl)
End Sub
End Class