Repository.Pool.AddPool

Adds a spare parts pool

Parameters
pool

Usage Example
Private WithEvents MyRepository As New Repository

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

Dim newPool As New cPool("NewPool1")

Dim SuccessAddPool As Boolean SuccessAddPool = MyRepository.AddPool(newPool)