Works great..thanks...here's the code sample:
Imports System.Reflection
Module Module1
Structure record
Dim s1 As String
Dim si As Int16
Dim sTest As String
End Structure
Public Sub Main()
Try
Dim i As Integer
Dim myType As Type = GetType(record) 'Get the type of the object we
care about
Dim myField As FieldInfo() = myType.GetFields() 'Get the fields from
my 'type'
For i = 0 To myField.Length - 1
Console.WriteLine("Field name = {0} and type = {1}.",
myField(i).Name, myField(i).FieldType)
Next i
Catch e As Exception
Console.WriteLine("Exception : {0} ", e.Message.ToString()) End Try
End Sub 'Main
End Module