Imports System

Imports System.Reflection

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        Dim tc = New testClass

        With tc

            .col.Add(10.1)

            .col.Add(10.2)

            .col.Add(10.3)

        End With

​

        Dim col As Collection = getProperty(tc, "col")

        Console.WriteLine(col.Count)

    End Sub

    Public Function getProperty(cls As Object, name As String) As Object

        Dim type As Type = cls.GetType()

        Dim prop As PropertyInfo = type.GetProperty(name)

        Dim col as collection = prop.GetValue(cls)

        Return col

    End Function

​

    Class testClass

        Property col As New Collection

    End Class

End Module