Dim tc As TabControl = TabControl1
                Dim tp As String = ZS(i, 2)
 
                Call IsTabAvailable(tc, tp)
                If result = False Then
                    TabControl1.TabPages.Add(ZS(i, 2))
                Else
 
                End If
 
                i = i + 1
            End If
 
        End While
 
    End Sub
 
    Private Function IsTabAvailable(ByRef tc As TabControl, ByRef tp As String) _
      As Boolean
 
        Try
            Dim t As String = tc.TabPages(tp).Name
        Catch ex As Exception
            result = False
        End Try
 
        Return result
 
    End Function