Sub addPanels()
        Dim t As Integer = 10
        Dim l As Integer = 10
        For a As Integer = 0 To 4
            Dim Newpanel As New Panel
            With Newpanel
                .Top = t
                .Left = l
                .Width = 100
                .Height = 150
            End With
            AddHandler Newpanel.Paint, AddressOf NewPanel_Paint
            Me.Controls.Add(Newpanel)
            l += 110
        Next
    End Sub
    Private Sub NewPanel_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs)
        ControlPaint.DrawBorder(e.Graphics, e.ClipRectangle, Color.Red, 4, _
        ButtonBorderStyle.Inset, Color.Blue, 5, ButtonBorderStyle.Inset, _
        Color.Azure, 4, ButtonBorderStyle.Inset, Color.CadetBlue, 5, _
        ButtonBorderStyle.Inset)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus