'AddReference "C:\Program Files\Autodesk\Inventor 2011\Bin\iLogicAdd\iLogicTrackBar.dll"
AddReference ThisDoc.Path & "iLogicTrackBar.dll"


Sub Main
Dim oAsm As AssemblyDocument = ThisApplication.ActiveDocument
Dim oAsmCompDef As AssemblyComponentDefinition = oAsm.ComponentDefinition
Dim comp As ComponentOccurrence
comp = ThisApplication.CommandManager.Pick(
SelectionFilterEnum.kAssemblyOccurrenceFilter,
"Select a components")
If comp Is Nothing Then Exit Sub
' If there are selected components we can do something
On Error Resume Next
Dim oAConstraint As AngleConstraint
Dim PI As Double:  PI = Math.Atan(1) * 4
oAngleConstr = comp.Constraints
Using dlg As New iLogicTrackBar.TrackBarDialog
 		dlg.Parameter = Parameter
		dlg.ParameterName = oAngleConstr.Angle.Name
                dlg.MinValue = 0
 		dlg.MaxValue = 360
  		dlg.RoundInc = 5
		Dim i As Integer = dlg.ShowDialog()
		iLogicVb.UpdateWhenDone = True
	End Using
	End Sub