I cannot get the root object of cosmosmotion, Please give mesomeadvice about cosmosmotion code


Sub main()
Dim swApp As SldWorks.SldWorks
Dim addin As CMotionSWAddin
Dim strDllFileName As String
Dim return_value As Integer
Set swApp = GetObject(, "SldWorks.Application")
strDllFileName = "C:\Program Files\SolidWorks\COSMOSMotionForSolidWorks\cmotionsw.dll"
return_value = swApp.LoadAddIn(strDllFileName)
Set addin = swApp.GetAddInObject("COSMOSMotion")
End SubSolidworksFlow Simulation