Repository.Model.AddModel

Adds a new model

Parameters
m The cModel of the model to add.

Usage Example
Private WithEvents MyRepository As New Repository

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

Dim newModel As New cModel(ModelTypeEnum.Weibull2, ModelCategoryEnum.Reliability, "NewModel1", 1, 100)

Dim SuccessAddModel As Boolean = False SuccessAddModel = MyRepository.AddModel(newModel)