Repository.Model.IsModelUsed

Syntax
IsModelUsed( ID )

Parameters
 * ID: The ID that will have its use checked.

Usage Example
Dim MyRepository As New Repository Dim Success As Boolean = False Success = MyRepository.ConnectToRepository("RepositoryFileNamePath") Dim ListOfModels As NameIdPair ListOfModels = MyRepository.GetAllModelsInfo Dim AModel as cModel AModel = MyRepository.GetModel(20) AModel.Name = "New Name" Dim SuccessUpdateModel As Boolean SuccessUpdateModel = MyRepository.UpdateModel(20) Dim SucessIsModelUsed As Boolean SucessIsModelUsed = MyRepository.IsModelUsed (20) MyRepository.DisconnectFromRepository