Sub CreateModel()

Dim iModel As RFEM5.model
Set iModel = New RFEM5.model

iModel.SetName("testmodell")

iModel.SetDescription("description")

On Error GoTo e

       Dim iApp As RFEM5.Application
       Set iApp = iModel.GetApplication

       iApp.LockLicense

       iApp.Show

       Dim iModelData As RFEM5.iModelData
       Set iModelData = iModel.GetModelData()

       Dim nodeList(0 To 1) As RFEM5.Node
       nodeList(0).RefObjectNo = 0
       nodeList(0).No = 1
       nodeList(0).X = 0#
       nodeList(0).Y = 0#
       nodeList(0).Z = 0#

       nodeList(1).RefObjectNo = 0
       nodeList(1).No = 2
       nodeList(1).X = 1.0#
       nodeList(1).Y = 0#
       nodeList(1).Z = 0#

       'iModelData.PrepareModification
       'iModelData.SetNodes nodeList
       'iModelData.FinishModification

       Dim lineList(0 To 0) As RFEM5.Line
       lineList(0).nodeList = "1,2"
       lineList(0).Type = LineType.PolylineType

       'iModelData.PrepareModification
       'iModelData.SetLines lineList
       'iModelData.FinishModification

       Dim num As Integer
       num = iModelData.GetMaterialCount

       'iModelData.PrepareModification
       'Dim i As Integer
       'For i = 0 To num - 1
       '    Dim iMat As RFEM5.IMaterial
       '    Set iMat = iModelData.GetMaterial(i, AtIndex)
       '    iMat.Delete
       'Next i
       'iModelData.FinishModification

       Dim mats(0 To 0) As RFEM5.Material
       mats(0).TextID = "NameID|Baustahl S 235@TypeID|STEEL@NormID|DIN EN 1993-1-1-10"
       mats(0).No = 1

       'iModelData.PrepareModification
       'iModelData.SetMaterials mats
       'iModelData.FinishModification

       Dim crs(0 To 0) As RFEM5.CrossSection
       crs(0).TextID = "IPE 100"
       crs(0).MaterialNo = 1
       crs(0).No = 1

       'iModelData.PrepareModification
       'iModelData.SetCrossSections crs
       'iModelData.FinishModification

       Dim mems(0 To 0) As RFEM5.Member
       mems(0).LineNo = 1
       mems(0).StartCrossSectionNo = 1
       mems(0).No = 1

       'iModelData.PrepareModification
       'iModelData.SetMembers mems
       'iModelData.FinishModification

       iModelData.PrepareModification
       Dim i As Integer
       For i = 0 To num - 1
             Dim iMat As RFEM5.IMaterial
             Set iMat = iModelData.GetMaterial(i, AtIndex)
             iMat.Delete
       Next i
       iModelData.FinishModification

       iModelData.PrepareModification

       iModelData.SetNodes nodeList
       iModelData.SetLines lineList
       iModelData.SetMaterials mats
       iModelData.SetCrossSections crs
       iModelData.SetMembers mems

       iModelData.FinishModification

e:      If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

iModel.GetApplication.UnlockLicense

End Sub