Using for each with class vb.net : i have this class


    Public Class TExperience
        Public ID As Integer
        Public CompanyName As String
        Public Country As String
        Public Years As Integer
        Public Months As Integer
        Public JobTitle As String
        Public Function Arr() As String()
            Return {"ID", "CompanyName", "Country", "Years", "Months", "JobTitle"}
        End Function
    End Class
and this is how it work

 
    Public Function Set()
        Dim D As New TExperience
        D.CompanyName = "Any Data"
        D.Country = "Any Data"
        D.ID = "Any Data"
        D.JobTitle = "Any Data"
        D.Months = "Any Data"
    End Function

i need to exchange this by "For Each..... in class"

            D.CompanyName = "Any Data"
            D.Country = "Any Data"
            D.ID = "Any Data"
            D.JobTitle = "Any Data"
            D.Months = "Any Data"

How to do this?
