Public Structure ss
        Public i As Integer
        Public s As String
    End Structure
 
    Private Sub Test()
        Dim ss1 As New ss
        ss1.i = 33
        ss1.s = "Hey!"
 
        For Each fi As System.Reflection.FieldInfo In ss1.GetType().GetFields
            Debug.WriteLine(fi.Name & "=" & fi.GetValue(ss1).ToString())
        Next
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov