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