Private Function WahrFalsch(ByVal x As Boolean, ByVal y As _
  System.Windows.Forms.TabPage)
        Dim na As String
        If (x = True) Then
            TabControl1.TabPages.Add(y)
            na = String.Concat(y.Name, "Kna")
            Me.Controls(na).Text = KnotnaText.Text
        End If
    End Function