 
            | Solid Edge Framework Type Library > SolidEdgeInsightXT Object : CreateNewProject Method | 
| Visual Basic | 
|---|
| Public Sub CreateNewProject( _ ByVal bstrProjectName As String _ ) | 
Private Sub Command1_Click() On Error Resume Next Dim objApplication As SolidEdgeFramework.Application Dim objSolidEdgeInsightXT As SolidEdgeFramework.SolidEdgeInsightXT Set objApplication = GetObject(, "SolidEdge.Application") Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT Dim ProjectName As String ProjectName = "TEST" Call objSolidEdgeInsightXT.CreateNewProject(FileItemID) Set objSolidEdgeInsightXT = Nothing Set objApplication = Nothing End Sub