Imports System.Xml
 
Public MustInherit Class XMLSave
 
    Private _xmlPath As String
 
    Public Sub New(xmlpath As String)
        _xmlPath = xmlpath
    End Sub
 
    Public Sub ReadXML()
        ' Xmldocument öffnen usw
        Try
            ' Xml lesen usw
 
            ' CreateButton Aufruf Statt RaiseEvent
            CreateButton("txtButtonName", "txtLoc")
 
        Catch ex As Exception
            '...
        End Try
 
    End Sub
 
    Public MustOverride Sub CreateButton(name As String, text As String)
 
End Class

Public Class Main
 
    Private _xmlPath As String = "C:\test\buttons.xml"
    Private _xmlSave As New MyXmlSave(Me, _xmlPath)
 
    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles MyBase.Load
 
        _xmlSave.ReadXML()
 
    End Sub
 
    Public Class MyXmlSave
        Inherits XMLSave
 
        Private _form As Form
 
        Public Sub New(theForm As Form, path As String)
            MyBase.New(path)
            _form = theForm
        End Sub
 
        ' CreateButton Routine
        Public Overrides Sub CreateButton(name As String, text As String)
            ' Code weggelassen
            MsgBox("Create " & name & " " & text)
        End Sub
 
    End Class
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist