Template:Repository.Ex

Dim MyRepository As New Repository Dim Success As Boolean = False Success = MyRepository.ConnectToRepository("C:\Users\Name\Documents\ReliaSoft\Files\repository.rsr10") Dim ListOfProjects As NameIdPair ListOfProjects = MyRepository.Project.GetAllProjects MyRepository.Project.SetCurrentProject(ListOfProjects(0).ID) Dim ListOfModels As NameIdPair ListOfModels = MyRepository.Model.GetAllModelsInfo Dim AModel As cModel AModel = MyRepository.Model.GetModel(ListOfModels(0).ID) Dim Rel As Double Rel = AModel.Reliability(50) MyRepository.DisconnectFromRepository