Public Delegate Sub MyDelegate(ByVal txtButtonName As String, ByVal txtLoc As _
  String)
 
Public Class Main
 
    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim del As New MyDelegate(AddressOf CreateButton)
        oSave.ReadXML(del)
    End Sub
 
    Private Sub NewTask_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles NewTask.Click
            ‘Dialog wird geöffnet in dem der Benutzer zwei Strings eingeben _
            muss.
             XMLSave.NewButton(txtButtonName, txtLoc)
            CreateButton(txtButtonName, txtLoc)
    End Sub
 
Private Sub CreateButton(ByVal txtButtonName As String, ByVal txtLoc As String)
      ‘Anweisungen
End Sub
 
End Class
 
 
Public Class XMLSave
 
    Public Sub ReadXML(ByVal del As MyDelegate)
         ‘Anweisungen
          del.Invoke(txtButtonName, txtLoc)
    End Sub
 
Public Sub NewButton(ByVal ButtonName As String, ByVal Location As String)
       ‘speichert die Strings in einer XML File
End Sub
 
End Class