Imports Microsoft.VisualBasic.PowerPacks
Public Class frmShape
 
    Dim sc As New ShapeContainer With {.Parent = Me, .Visible = True, _
                    .Location = New Point(0, 0), .Size = New Size(300, 300)}
 
    Dim lstShapes As New List(Of OvalShape) 'Liste der Shapes
    Dim index As Integer = 0
 
    Dim WithEvents btnVisisble As New Button _
        With {.Parent = Me, .Text = "Sichtbarkeit", .Left = 50, .Width = 150}
 
 
    Private Sub frmShape_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        For i As Integer = 0 To 10
            Dim sh As New OvalShape
            With sh
                .Location = New Point(i * 30, i * 30)
                .Size = New Size(20, 30)
                .BorderColor = Color.Red
                .BorderWidth = 3
                .Parent = sc
                .Visible = True
            End With
            lstShapes.Add(sh)
        Next i
    End Sub
 
 
    Private Sub btnVisisble_Click(sender As Object, _
        e As System.EventArgs) Handles btnVisisble.Click
 
        lstShapes(index).Visible = True
        index += 1
        If index = lstShapes.Count Then index = 0
        lstShapes(index).Visible = False
    End Sub
 
End Class