LieferBO1.Add()Dim para As New Liefneuparamspara.cNeu = "N"para.cModule = "Latitelneu"para.cLiefer = ""para.lSolo = FalseIf Childliefneu.ShowDialog(para) = DialogResult.OK Then .......