Imports CodeStack.Examples.CreateGeometryAddIn
Imports SolidWorks.Interop.sldworks

Module Module1

	Sub Main()
		Dim app As ISldWorks = GetObject("", "SldWorks.Application")
		Dim geomAddIn As IGeometryAddIn = app.GetAddInObject("CodeStack.GeometryAddIn")
		Dim feat As IFeature = geomAddIn.CreateCylinder(0.2, 0.2)
		feat.Name = "MyCylinder"
	End Sub

End Module