Private Sub btn_kunden_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles btn_kunden.Click
        Dim frm As New frm_kundenstamm("Kunde auswählen")
        frm.ShowDialog()
        frm = Nothing
    End Sub

 
Private Sub list_kunden_DoubleClick(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles list_kunden.DoubleClick
        If Me.Text = "Kunde auswählen" Then
            Dim inv1 As New adressenfueller(AddressOf _
              frm_auftragsanlage.adress_feld_fuellen)
            Dim adressending As String = kundentext_aus_db_fuellen( _
            Convert.ToInt32(l_kundennr.Text))
            Me.Invoke(inv1, adressending)
            frm_auftragsanlage.txt_adresse.Refresh()
 
            inv1 = Nothing
 
            Me.Close()
        End If
    End Sub
 
    Public Delegate Sub adressenfueller(ByVal adresstext As String

 
    Public Sub adress_feld_fuellen(ByVal adresse As String)
        txt_adresse.AppendText(adresse)
        txt_adresse.Refresh()
    End Sub