'Notizen laden
    Private Sub btn_Neue_Notiz_anlegen_Click(sender As Object, e As EventArgs) _
      Handles btn_Neue_Notiz_anlegen.Click
        NotizenBindingSource.AddNew()
 
        load_Notizen()
    End Sub
    Public Sub load_Notizen()
        With pnl_Eingabe_Notizen
            .SuspendLayout()
            While .Controls.Count > 0
                .Controls(0).Dispose()
            End While
            For Each drv In NotizenBindingSource
                Dim ucl = New NotizUc With {.Dock = DockStyle.Top}
                ucl.NotizenBindingSource.DataSource = NotizenBindingSource
                .Controls.Add(ucl)
                ucl.NotizenBindingSource.DataSource = drv
            Next
            .ResumeLayout()
        End With
    End Sub