Function Textneu(ByVal Lb2 As System.Windows.Forms.TabPage, ByVal TeBo1 As _
      System.Windows.Forms.TextBox)
 
        Dim na As String
        Dim Lb1 As System.Windows.Forms.Label
        na = String.Concat(Lb2.Name, "Kna")
        Lb1.Name = na
        Lb1.Text = TeBo1.Text
    End Function

Zitat:

Eine nicht behandelte Ausnahme des Typs 'System.NullReferenceException' ist in WindowsApplication1.exe aufgetreten. Zusätzliche Informationen: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.