Jag har skapar en egen kontroll (laggt till ett par egenskaper till en vanlig knapp).
Jag infogar denna typ av knapp dynamiskt i en panel i min win-app och allt fungerar bra.

Det jag inte får att fungera är:
Jag kan inte stega mej igenom alla knappar av den valda typen i panelen för att hämnta egenskaperna, (det finns flera andra sorters kontroller i panelen)

Programmet fastnar alltså på codraden:

For Each Plats In PanelPLAN.Controls

Sub Spara()
        Dim XMLfil As XmlTextWriter
        Dim Plats As New TScontroler.LokalButon

        'grund inställningarna för filen
        XMLfil = New XmlTextWriter("PlanerPlan.xml", Nothing)
        XMLfil.Formatting = Formatting.Indented
        XMLfil.WriteStartDocument(True)
        XMLfil.WriteStartElement("HelaPlaneringen")

        'laddar filen med innehåll
        'sparar alla ferg texter
        XMLfil.WriteStartElement("FergBetydelser")
        XMLfil.WriteElementString("Orange", Ferg1.Text)
        XMLfil.WriteElementString("Gul", Ferg2.Text)
        XMLfil.WriteElementString("Ggrön", Ferg3.Text)
        XMLfil.WriteElementString("Blå", Ferg4.Text)
        XMLfil.WriteElementString("Lila", Ferg5.Text)
        XMLfil.WriteElementString("Plommon", Ferg6.Text)
        XMLfil.WriteElementString("Röd", Ferg7.Text)
        XMLfil.WriteEndElement()

        'Sparar all planering
        XMLfil.WriteStartElement("PLANERINGEN")
        'sparar första plats knappen

        For Each Plats In PanelPLAN.Controls
            XMLfil.WriteStartElement("PlatsKnapp")
            XMLfil.WriteElementString("Text", Plats.Text)
            XMLfil.WriteElementString("InfoText", Plats.TS_InfoTxt)
            'infoga Lopp som filtrerar fram alla planerade händelser knutna till vald plats knapp
            XMLfil.WriteStartElement("Evenemang")
            XMLfil.WriteElementString("TestKod", "INFO EJ IN HÄMNTAD")
            XMLfil.WriteEndElement()    'slut tagg planerings knapp
            'avsluter platsen och går vidare
            XMLfil.WriteEndElement()    'slut tagg plats knapp
        Next
        XMLfil.WriteEndElement()    'slut planering

        'stänger och avsluter filen
        XMLfil.Flush()
        XMLfil.Close()
    End Sub

Controls-kolletionen innehåller alla kontroller, inte enbart de av typen TScontroler.LokalButon, därför blir det fel.

Såhär borde fungera:

<code>
Dim Plats As Control
For Each Plats In PanelPLAN.Controls
If TypeName(Plats) = "LokalButon" Then
Dim knapp As TScontroler.LokalButon = Plats
MsgBox(knapp.TS_InfoTxt)
End If
Next
</code>

/Johan