Repository.Pool.GetAllPools

Returns an array containing all spare part pools

Usage Example
Private WithEvents MyRepository As New Repository

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

Dim ListOfPools As cPool ListOfPools = MyRepository.GetAllPools