Public Function CheckNamesTextBoxen() As Boolean
        Dim Correct As Boolean = False
        For Each index As ArrayList In atxtNames
            For Each txt As TextBox In index
                If String.IsNullOrEmpty(txt.Text) Then
                    Correct = False
                    Return Correct
                Else
                    Correct = True
                End If
            Next
        Next
        Return Correct
    End Function