[VB.NET] Cancellare oggetti Shape da codice

[erot79]

Salve, ho un problema forse banale ma non riesco a risolvere. Creo runtime degli oggetti lineshape e ovalshape inseriti nello shapecontainer di nome canvas. Voglio creare poi una routine che cancella tutti gli shape contenuti nel mio form. Ho provato così

Dim l As LineShape
Dim o As OvalShape
        For Each l In canvas.Shapes
            For Each o In canvas.Shapes
                canvas.Shapes.Remove(o)
            Next
            canvas.Shapes.Remove(l)
        Next
        l.Dispose()
        o.Dispose()

ma ottengo il seguente messaggio:
Unable to cast object of type 'Microsoft.VisualBasic.PowerPacks.OvalShape' to type 'Microsoft.VisualBasic.PowerPacks.LineShape'.

dove sbaglio? Grazie

[erot79]

Come dice Marzullo si faccia una domanda e sia dia una risposta....ho trovato una soluzione un pò in giro per la rete (da solo non ci sarei mai arrivato).

Private Sub DelShapes()
        If canvas IsNot Nothing Then
            If canvas.Shapes IsNot Nothing Then
                Dim del_shapes As New Generic.List(Of Microsoft.VisualBasic.PowerPacks.Shape)
                For Each del_shapes As Microsoft.VisualBasic.PowerPacks.Shape In canvas.Shapes
                    del_shapes.Add(tshape)
                Next
                canvas.Shapes.Clear()
                canvas.Shapes.Dispose()
                For Each del_shapes As Microsoft.VisualBasic.PowerPacks.Shape In del_shapes
                    del_shapes.Dispose()
                Next
            End If
            canvas.Dispose()
        End If
End sub