arrays - VBでプロパティの配列を作成しようとしています

Question

プロパティの配列を作成しようとしています。私の問題を単純化するために、ミニプロジェクトを作成しました

プロジェクト: ボタンを押すと色と数が変わる 3 つの図形があります。プロパティのセットごとにクラスを作成しました。

Public Class Shape
  Dim _color As Color

End Class

テスト用にいくつかのオブジェクトを追加します (最初に色をコーディングします)。

 Public Shared Sub Main()

    Dim ShapeList As New List(Of Shape)
    ShapeList .Add(New Shape() With {_color = Color.Blue})
    ShapeList .Add(New Shape() With {_color = Color.Green})
    ShapeList .Add(New Shape() With {_color = Color.Red})

    Display()
  End Sub

ボタンが押されたときに、オブジェクトの配列から並べ替えられた/ランダムなセットを表示したい

Public Sub Display(ByVal ShapeList As Object)

    Dim ScreenObject As Array
    ScreenObject(0) With {.OvalShape1}  'This is where I am stuck
    ScreenObject(1) =  .OvalShape2      'How to create this property in the
                                        'ScreenObject array?

        For Each obj As Shape In ShapeList
        ScreenObject(0).Color = ShapeList(0).Color
End Sub

明確化: 3 つの形状は、それぞれ OvalShape1、2、および 3 です。しかし、私が VB で持っている小さなスキルでは、答えを見つけるのに苦労しています。