Imports System

Imports System.Collections.Generic

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim _data = New List(Of Object)

        Dim data1 = New With {.IDMO = 5162, .Id = 1}

        _data.Add(data1)

        Dim data2 = New With {.IDMO = 4567, .Id = 2}

        _data.Add(data2)

​

        Dim firstObject = _data.FirstOrDefault()

        Dim type As Type = firstObject.GetType()

        Dim idmoValue = type.GetProperty("IDMO").GetValue(firstObject)

        Console.WriteLine(idmoValue)

    End Sub

End Module