Imports System
Imports System.Reflection
Public Class MyPropertyClass
Private myPropertyArray(9, 9) As Integer
Default Public Property Item(ByVal i As Integer, ByVal j As Integer) As Integer
Get
Return myPropertyArray(i, j)
End Get
Set(ByVal Value As Integer)
myPropertyArray(i, j) = Value
End Set
End Property
End Class 'MyPropertyClass
Public Class MyTypeClass
Public Shared Sub Main()
Dim myType As Type = GetType(MyPropertyClass)
Dim myTypeArray(1) As Type
myTypeArray.SetValue(GetType(Integer), 0)
myTypeArray.SetValue(GetType(Integer), 1)
End Sub
End Class
|