Repository.Pool.GetAllPools

Usage Example
Private WithEvents MyRepository As New Repository

Dim Success As Boolean = False Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")

Dim ListOfPools As cPool ListOfPools = MyRepository.GetAllPools