Public Class frmDynamic
 
    Dim buttoncounter As Integer
    Dim buttonlink As String
    Dim ctlfile As String = "C:\Temp\controls.txt"
 
    Private Sub frmDynamic_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        If Not IO.File.Exists(ctlfile) Then Exit Sub
 
        'Gespeicherte Buttons erstellen
        Dim ctlDaten() As String = IO.File.ReadAllLines(ctlfile)
 
        For i As Integer = 0 To ctlDaten.Length - 1
            If ctlDaten(i).StartsWith("Button") Then
 
                buttoncounter += 1
 
                Dim angaben() As String = ctlDaten(i).Split("|")
                Dim t As Integer = CInt(angaben(1))
                Dim l As Integer = CInt(angaben(2))
                Dim link As String = CStr(angaben(3))
                Dim btn As New Button With {.Parent = Me, .Top = t, .Left = l, _
                  .Text = link, .Tag = CStr(buttoncounter)}
 
                AddHandler btn.Click, AddressOf ButtonNeu_Click
            End If
        Next i
    End Sub
 
    Private Sub frmDynamic_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
            'neuen Button erstellen
            buttoncounter += 1
            buttonlink = ""
 
            Dim btn As New Button With {.Parent = Me, .Location = e.Location, _
              .Text = TextBox1.Text, .Tag = buttoncounter}
 
            'Angaben zum Button speichern 
            If Not IO.File.Exists(ctlfile) Then IO.File.Create(ctlfile)
 
            Dim ctlDaten() As String = IO.File.ReadAllLines(ctlfile)
 
            Array.Resize(ctlDaten, ctlDaten.Length + 1)
            ctlDaten(ctlDaten.Length - 1) = "Button" & buttoncounter & "|" & _
              CStr(btn.Top) & "|" & CStr(btn.Left) & "|" & btn.Text
 
            'Click-Ereignis: Routine zuordnen
            AddHandler btn.Click, AddressOf ButtonNeu_Click
 
            IO.File.WriteAllLines(ctlfile, ctlDaten)
        End If
 
    End Sub
 
    Private Sub ButtonNeu_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
 
        Dim buttonlink As String = CStr(CType(sender, Button).Text)
        Process.Start(buttonlink)
 
    End Sub
 
End Class