Public Class MyData
  Private _data(4) As Double
  Public Property Data(ByVal ii As Int32) As Double
    Get
      Return _data(ii)
    End Get
    Set(ByVal value As Double)
      _data(ii) = value
    End Set
  End Property
  Public Sub New()
    For i As Int32 = 0 To 4
      _data(i) = i + 1
    Next
  End Sub
End Class

Public md As MyData
Public Sub Main()
  md = New MyData()
  Dim d(4) As Double
  For i As Int32 = 0 To 4
    d(i) = GetData(i)
  Next
  For i As Int32 = 0 To 4
    SetData(i, 2 * d(i))
    MessageBox.Show(GetData(i).ToString)
  Next
End Sub
Public Function GetData(ByVal ii As Int32) As Double
  Dim t As Type = md.[GetType]()
  Return t.InvokeMember("Data", Reflection.BindingFlags.GetProperty, Nothing, md, New Object(){ii})
End Function

Public Sub SetData0(ByVal ii As Int32, ByVal value As Int32)
  Dim t As Type = [GetType]()
  t.InvokeMember("Data", Reflection.BindingFlags.SetProperty, Nothing, md, New Object(){ii, value})
End Sub
Public Sub SetData1(ByVal ii As Int32, ByVal value As Int32)
  Dim t As Type = [GetType]()
  Dim p As PropertyInfo = t.GetProperty("Data")
  p.SetValue(md, value, New Object(){ii})
End Sub
Public Sub SetData2(ByVal ii As Int32, ByVal value As Int32)
  Dim t As Type = [GetType]()
  Dim p As PropertyInfo = t.GetProperty("Data")
  Dim m As MethodInfo = p.GetSetMethod()
  m.Invoke(md, New Object(){ii, value})
End Sub