' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/04/02 by NONAME
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("C:\Files\DWGS\H2O\~$LENS.SLDPRT", 1)
Set Part = swApp.OpenDoc ("C:\Files\DWGS\H2O\SAMPLER LARGE GEAR RING.SLDPRT", 1)
Set Part = swApp.NewPart
Set Part = swApp.ActivateDoc ("Part1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.InsertSketch
Part.CreateCircle 0, 0, 0, 0.1403175040519, 0.00612358184765, 0
Part.CreateCircle 0, 0, 0, 0.1147734197731, -0.0001749594813614, 0
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.925926
Part.ActiveView().ZoomByFactor 0.909091
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.06
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.CreateCenterLineVB -0.1530032020104, 0, 0, 0.1512545939875, 0, 0
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.1230746991885, 0.06766918514101, 0
Part.AddDimension 0.165243, 0.06754, 0
Part.ClearSelection
Part.Parameter("D1@Sketch1").SystemValue = 0.4699
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.1081856783304, 0.03832488604821, 0
Part.AddDimension 0.142512, -0.0382508, 0
Part.ClearSelection
Part.Parameter("D2@Sketch1").SystemValue = 0.305816
Part.ViewZoomtofit
Part.SelectByID "D1@Sketch1@Part1.SLDPRT", "DIMENSION", 0.1895508734018, 0.1121227264542, 0
Part.SelectByID "D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.1751653160454, -0.05458049702863, 0
Part.SelectByID "D1@Sketch1@Part1.SLDPRT", "DIMENSION", 0.295327030434, 0.07996677471637, 0
Part.SelectByID "D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0.2623248694399, -0.1925126057987, 0
Part.FeatureExtrusion 1, 0, 0, 0, 0, 0.024384, 0.00254, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0
Part.SelectByID "front", "PLANE", 0, 0, 0
Part.SelectByID "", "FACE", 0.2064123782478, -0.03018531084746, 0.024384
Part.InsertSketch
Part.ShowNamedView2 "*Front", 1
Part.EditRebuild
Part.ClearSelection
Part.SelectByID "", "FACE", 0.1726266882766, -0.0291942193409, 0.024384
Part.InsertSketch
Part.CreateCenterLineVB 0.2851725193589, 0, 0, -0.3139436340717, 0, 0
Part.ActiveView().RotateAboutCenter 0.00422464, 0
Part.ActiveView().RotateAboutCenter 0.342195, -0.985757
Part.ActiveView().RotateAboutCenter 0.422464, -1.40022
Part.ActiveView().RotateAboutCenter 0.00844927, -0.0672107
Part.ActiveView().RotateAboutCenter -0.304174, 0.285646
Part.ActiveView().RotateAboutCenter -0.0591449, 0.0784125
Part.ActiveView().RotateAboutCenter -0.266152, 0.470475
Part.ActiveView().RotateAboutCenter -0.0295724, 0.0728116
Part.ActiveView().RotateAboutCenter -0.00422464, 0.0168027
Part.ActiveView().RotateAboutCenter 0.00422464, -0.0280045
Part.ActiveView().RotateAboutCenter 0.00844927, -0.0168027
Part.ActiveView().RotateAboutCenter 0.00844927, -0.0280045
Part.ActiveView().RotateAboutCenter 0, 0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.0168027
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0.00844927, -0.0168027
Part.ActiveView().RotateAboutCenter 0.00422464, -0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.0168027
Part.ActiveView().RotateAboutCenter 0, -0.0224036
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00422464, 0
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00844927, 0
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00422464, 0.0168027
Part.ActiveView().RotateAboutCenter -0.0168985, 0.134421
Part.ActiveView().RotateAboutCenter -0.0295724, 0.196031
Part.ActiveView().RotateAboutCenter -0.00422464, 0.0168027
Part.ActiveView().RotateAboutCenter -0.046471, 0.711314
Part.ActiveView().RotateAboutCenter -0.0253478, 0.392063
Part.ActiveView().RotateAboutCenter -0.101391, 0.912946
Part.ActiveView().RotateAboutCenter -0.164761, 0.453672
Part.ShowNamedView2 "*Front", 1
Part.CreateCircle 0.1777039438142, 0, 0, 0.1920895011705, 0.002115523140645, 0
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.1880901465495, 0.009953444288016, 0
Part.AddDimension 0.287711, 0.0579653, 0.024384
Part.ClearSelection
Part.Parameter("D1@Sketch3").SystemValue = 0.0254
Part.SelectByID "Point5", "SKETCHPOINT", 0.1777039438142, 0, 0
Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0
Part.AddDimension 0.181089, -0.244978, 0.024384
Part.ClearSelection
Part.Parameter("D2@Sketch3").SystemValue = 0.192532
Part.FeatureCut2 1, 0, 0, 1, 0, 0.024384, 0.024384, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1
Part.SaveAs "C:\Files\DWGS\H2O\SEDIMENT TRAP LARGE GEAR.SLDPRT"
Set Part = swApp.NewPart
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Part2")
Part.InsertSketch
Part.CreateCircle 0, 0, 0, 0.1172228525122, -0.001924554294976, 0
Part.ViewZoomtofit
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.114181441567, 0.0265291453455, 0
Part.AddDimension 0.145658, 0.0424307, 0
Part.ClearSelection
Part.Parameter("D1@Sketch1").SystemValue = 0.304292
Part.ViewZoomtofit
Part.SelectByID "D1@Sketch1@Part2.SLDPRT", "DIMENSION", 0.1628916099806, 0.05342782279849, 0
Part.ActiveView().RotateAboutCenter 0.00422464, 0
Part.ActiveView().RotateAboutCenter 0.0126739, -0.0112018
Part.ActiveView().RotateAboutCenter 0.00844927, -0.0112018
Part.ActiveView().RotateAboutCenter 0.0168985, -0.0560089
Part.ActiveView().RotateAboutCenter 0.0337971, -0.0448072
Part.ActiveView().RotateAboutCenter 0.0506956, -0.0784125
Part.ActiveView().RotateAboutCenter 0.0506956, -0.0896143
Part.ActiveView().RotateAboutCenter 0.0253478, -0.0448072
Part.ActiveView().RotateAboutCenter 0.0253478, -0.0448072
Part.ActiveView().RotateAboutCenter 0.0253478, -0.0336054
Part.ActiveView().RotateAboutCenter 0.0126739, -0.0392063
Part.ActiveView().RotateAboutCenter 0.00422464, -0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00422464, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0112018
Part.ActiveView().RotateAboutCenter -0.0126739, 0.0224036
Part.ActiveView().RotateAboutCenter -0.00422464, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00422464, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00422464, 0
Part.ActiveView().RotateAboutCenter 0.00422464, -0.00560089
Part.ActiveView().RotateAboutCenter 0.00422464, -0.0168027
Part.ActiveView().RotateAboutCenter 0.00422464, -0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0.00422464, -0.0112018
Part.ActiveView().RotateAboutCenter 0.00422464, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0.00422464, 0
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00422464, 0
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00422464, 0
Part.ActiveView().RotateAboutCenter -0.00422464, 0
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter -0.0126739, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0336054
Part.ActiveView().RotateAboutCenter -0.0168985, 0.0224036
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00422464, 0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0.00844927, -0.0280045
Part.ActiveView().RotateAboutCenter 0.00844927, -0.0168027
Part.ActiveView().RotateAboutCenter 0.00422464, -0.00560089
Part.ActiveView().RotateAboutCenter 0.00422464, -0.0112018
Part.ActiveView().RotateAboutCenter 0.0211232, -0.0112018
Part.ActiveView().RotateAboutCenter 0.0126739, -0.0224036
Part.ActiveView().RotateAboutCenter 0.00422464, 0
Part.ActiveView().RotateAboutCenter 0.00422464, -0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0.00422464, 0
Part.ActiveView().RotateAboutCenter 0.00422464, 0
Part.ActiveView().RotateAboutCenter 0.00422464, 0
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter -0.0126739, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00422464, 0.0112018
Part.ActiveView().RotateAboutCenter -0.0126739, 0.0224036
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00422464, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0112018
Part.ActiveView().RotateAboutCenter -0.0126739, 0.0392063
Part.ActiveView().RotateAboutCenter -0.00422464, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00422464, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00422464, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00844927, 0.0112018
Part.ActiveView().RotateAboutCenter -0.0211232, 0.0280045
Part.ActiveView().RotateAboutCenter -0.0126739, 0.0224036
Part.ActiveView().RotateAboutCenter -0.00844927, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00422464, 0.00560089
Part.FeatureExtrusion 1, 0, 1, 0, 0, 0.023622, 0.00254, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0
Part.ClearSelection
Part.SaveAs "C:\Files\DWGS\H2O\SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT"
Set Part = swApp.NewAssembly
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Assem1")
swApp.ArrangeWindows 2
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 320
swApp.ActiveDoc.ActiveView.FrameHeight = 633
Set Part = swApp.ActivateDoc ("SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT")
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0
Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0
Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Assem1")
Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Set Part = swApp.ActivateDoc ("SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT")
Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Assem1")
Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0
Set Part = swApp.ActivateDoc ("SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT")
Part.SelectByID "Base-Extrude", "BODYFEATURE", 0, 0, 0
Set Part = swApp.ActivateDoc ("Assem1")
Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0
Set Part = swApp.ActivateDoc ("SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT")
Part.SelectByID "", "FACE", -0.01760194205599, 0.0757547513802, 0
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Set Part = swApp.ActivateDoc ("Assem1")
Set Part = swApp.ActivateDoc ("SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT")
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Assem1")
Set Part = swApp.ActivateDoc ("SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "SEDIMENT TRAP LARGE GEAR RETAINER.SLDPRT"
Set Part = swApp.ActivateDoc ("Assem1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 640
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SEDIMENT TRAP LARGE GEAR.SLDPRT")
swApp.ArrangeWindows 2
swApp.ActiveDoc.ActiveView.FrameLeft = 640
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 481
swApp.ActiveDoc.ActiveView.FrameHeight = 633
Part.SelectByID "SEDIMENT TRAP LARGE GEAR.SLDPRT", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Assem1")
swApp.ActiveDoc.ActiveView.FrameLeft = 481
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit
Part.ClearSelection
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@Assem1", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@Assem1", "COMPONENT", 0, 0, 0
Part.EditPart
' MSGBOX
' The assembly must be saved before performing this command. Would you like to save now?

Part.SaveAs "C:\Files\DWGS\H2O\SEDIMENT TRAP DISK.SLDASM"
Part.ClearSelection
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.OpenCompFile
Set Part = swApp.OpenDoc ("C:\Files\DWGS\H2O\SEDIMENT TRAP LARGE GEAR.SLDPRT", 1)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SEDIMENT TRAP LARGE GEAR.SLDPRT")
Part.ClearSelection
Part.SelectByID "SEDIMENT TRAP LARGE GEAR.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "SEDIMENT TRAP LARGE GEAR.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "SEDIMENT TRAP LARGE GEAR.SLDPRT", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "SEDIMENT TRAP LARGE GEAR.SLDPRT", "COMPONENT", 0, 0, 0
Part.DimPreferences
swApp.ActiveDoc.ActiveView.FrameLeft = 481
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SEDIMENT TRAP DISK.SLDASM")
Part.EditAssembly
Part.ShowNamedView2 "*Right", 4
Part.ViewZoomtofit
Part.ViewZoomTo2 -0.0553846, 0.167126, -1.16704e-015, 0.0470067, 0.0951985, -6.64768e-016
Part.ViewZoomtofit
Part.ActiveView().RotateAboutCenter -0.0338799, -0.0112018
Part.ActiveView().RotateAboutCenter -0.114345, -0.257641
Part.ActiveView().RotateAboutCenter -0.00423499, -0.0168027
Part.ActiveView().RotateAboutCenter -0.00846998, -0.112018
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.100816
Part.ActiveView().RotateAboutCenter -0.012705, -0.0784125
Part.ActiveView().RotateAboutCenter -0.0254099, -0.257641
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0168027
Part.ActiveView().RotateAboutCenter -0.0254099, 0.140022
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0392063
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0392063
Part.ActiveView().RotateAboutCenter -0.00846998, 0.0280045
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.0112018
Part.ActiveView().RotateAboutCenter 0.01694, 0.0168027
Part.ActiveView().RotateAboutCenter 0.00846998, 0.0168027
Part.ActiveView().RotateAboutCenter 0.012705, 0.00560089
Part.ActiveView().RotateAboutCenter 0.00423499, 0.00560089
Part.ActiveView().RotateAboutCenter 0.0254099, 0
Part.ActiveView().RotateAboutCenter 0.0974048, 0.00560089
Part.ActiveView().RotateAboutCenter 0.0550549, 0.00560089
Part.ActiveView().RotateAboutCenter 0.0635249, 0.00560089
Part.ActiveView().RotateAboutCenter 0.00846998, 0
Part.ActiveView().RotateAboutCenter -0.0296449, 0.0392063
Part.ActiveView().RotateAboutCenter -0.0465849, 0.12322
Part.ActiveView().RotateAboutCenter -0.01694, 0.0224036
Part.ActiveView().RotateAboutCenter -0.00423499, 0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.0448072
Part.ActiveView().RotateAboutCenter -0.00423499, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.0280045
Part.ViewDisplayHiddenremoved
Part.ActiveView().RotateAboutCenter -0.00846998, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00846998, 0.0224036
Part.ActiveView().RotateAboutCenter -0.01694, 0.0392063
Part.ActiveView().RotateAboutCenter -0.012705, 0.0280045
Part.ActiveView().RotateAboutCenter -0.012705, 0.0336054
Part.ActiveView().RotateAboutCenter -0.01694, 0.0672107
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0392063
Part.ActiveView().RotateAboutCenter 0, 0.0560089
Part.ActiveView().RotateAboutCenter 0, 0.0448072
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.0168027
Part.ActiveView().RotateAboutCenter 0, 0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.0112018
Part.ActiveView().RotateAboutCenter 0.00423499, 0
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0112018
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0112018
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00423499, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0168027
Part.ActiveView().RotateAboutCenter 0, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00423499, 0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0224036
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0168027
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0224036
Part.ActiveView().RotateAboutCenter 0, -0.0168027
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.0224036
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0280045
Part.ActiveView().RotateAboutCenter 0, -0.0448072
Part.ActiveView().RotateAboutCenter 0, -0.0448072
Part.ActiveView().RotateAboutCenter 0, -0.0224036
Part.ActiveView().RotateAboutCenter 0, -0.0448072
Part.ActiveView().RotateAboutCenter 0, -0.0448072
Part.ActiveView().RotateAboutCenter 0, -0.0336054
Part.ActiveView().RotateAboutCenter 0, -0.0616098
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter -0.00423499, 0
Part.ActiveView().RotateAboutCenter -0.00846998, 0.0112018
Part.ActiveView().RotateAboutCenter -0.012705, 0.106417
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0952152
Part.ActiveView().RotateAboutCenter 0, 0.12322
Part.ActiveView().RotateAboutCenter 0, 0.0392063
Part.ActiveView().RotateAboutCenter 0, 0.0392063
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0672107
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0392063
Part.ActiveView().RotateAboutCenter -0.00846998, 0.0504081
Part.ActiveView().RotateAboutCenter -0.012705, 0.0168027
Part.ActiveView().RotateAboutCenter -0.01694, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00846998, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00846998, 0.00560089
Part.ActiveView().RotateAboutCenter -0.00423499, 0
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0280045
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0224036
Part.ActiveView().RotateAboutCenter 0.00846998, -0.100816
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0560089
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0672107
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0784125
Part.ActiveView().RotateAboutCenter 0, -0.0224036
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0952152
Part.ActiveView().RotateAboutCenter 0, -0.0448072
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.AndSelectByID "", "FACE", 0.003772672070681, 0.0775055965011, -0.02362200000002
Part.AndSelectByID "", "FACE", 0.01902027779175, 0.2020062856348, 0
Part.AddMate 0, 2, 0, 0.01, 0.5235987755983
Part.ClearSelection
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.UnfixComponent
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.012705, 0.0224036
Part.ActiveView().RotateAboutCenter -0.0762298, 0.0952152
Part.ActiveView().RotateAboutCenter -0.0931698, 0.0560089
Part.ActiveView().RotateAboutCenter -0.0338799, 0.0392063
Part.ActiveView().RotateAboutCenter -0.0423499, 0.0448072
Part.ActiveView().RotateAboutCenter -0.012705, 0.0168027
Part.ActiveView().RotateAboutCenter 0.01694, -0.0392063
Part.ActiveView().RotateAboutCenter 0.012705, -0.179229
Part.ActiveView().RotateAboutCenter 0.00846998, -0.280045
Part.ActiveView().RotateAboutCenter 0, -0.0784125
Part.ActiveView().RotateAboutCenter -0.00423499, -0.0560089
Part.ActiveView().RotateAboutCenter -0.00846998, -0.0616098
Part.ActiveView().RotateAboutCenter 0, -0.0224036
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.0168027
Part.ActiveView().RotateAboutCenter 0, 0.268843
Part.ActiveView().RotateAboutCenter 0, 0.145623
Part.ActiveView().RotateAboutCenter 0, 0.128821
Part.ActiveView().RotateAboutCenter 0, 0.0168027
Part.ActiveView().RotateAboutCenter 0, 0.0224036
Part.ActiveView().RotateAboutCenter 0, 0.0112018
Part.ActiveView().RotateAboutCenter 0, 0.0280045
Part.ShowNamedView2 "*Right", 4
Part.ShowNamedView2 "*Top", 5
Part.ViewDisplayWireframe
Part.ShowNamedView2 "*Right", 4
Part.ShowNamedView2 "*Top", 5
Part.ShowNamedView2 "*Front", 1
Part.ViewDisplayHiddenremoved
Part.ViewDisplayWireframe
Part.ViewDisplayShaded
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0112018
Part.ActiveView().RotateAboutCenter 0.0762298, -0.246439
Part.ActiveView().RotateAboutCenter 0.0423499, -0.100816
Part.ActiveView().RotateAboutCenter 0.012705, -0.0280045
Part.ActiveView().RotateAboutCenter 0.0338799, -0.274444
Part.ActiveView().RotateAboutCenter 0.0635249, -0.358457
Part.ActiveView().RotateAboutCenter 0.0254099, -0.224036
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0616098
Part.ActiveView().RotateAboutCenter 0.012705, -0.0616098
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0168027
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.0336054
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0224036
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0224036
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.0224036
Part.ActiveView().RotateAboutCenter 0, -0.0616098
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.134421
Part.ActiveView().RotateAboutCenter 0, -0.0112018
Part.ActiveView().RotateAboutCenter 0, -0.0168027
Part.ActiveView().RotateAboutCenter -0.00846998, -0.168027
Part.ActiveView().RotateAboutCenter -0.00423499, -0.0448072
Part.ActiveView().RotateAboutCenter -0.00423499, -0.0336054
Part.ActiveView().RotateAboutCenter -0.012705, -0.134421
Part.ActiveView().RotateAboutCenter -0.00846998, -0.0504081
Part.ActiveView().RotateAboutCenter -0.012705, -0.0672107
Part.ActiveView().RotateAboutCenter -0.00423499, 0
Part.ActiveView().RotateAboutCenter -0.01694, 0.0112018
Part.ActiveView().RotateAboutCenter -0.0254099, 0.0504081
Part.ActiveView().RotateAboutCenter -0.01694, 0.246439
Part.ActiveView().RotateAboutCenter 0, 0.526484
Part.ActiveView().RotateAboutCenter 0.00423499, 0.291247
Part.ActiveView().RotateAboutCenter 0, 0.0896143
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0112018
Part.ActiveView().RotateAboutCenter 0.00423499, -0.00560089
Part.ActiveView().RotateAboutCenter 0.012705, 0
Part.ActiveView().RotateAboutCenter 0, 0.0504081
Part.ActiveView().RotateAboutCenter -0.00846998, 0.179229
Part.ActiveView().RotateAboutCenter -0.012705, 0.162426
Part.ActiveView().RotateAboutCenter -0.00423499, -0.134421
Part.ActiveView().RotateAboutCenter 0, -0.246439
Part.ActiveView().RotateAboutCenter 0.01694, -0.19043
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0784125
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0616098
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0728116
Part.ActiveView().RotateAboutCenter 0.00846998, -0.145623
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0784125
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0952152
Part.ActiveView().RotateAboutCenter 0, -0.0392063
Part.ActiveView().RotateAboutCenter 0, -0.0280045
Part.ActiveView().RotateAboutCenter 0, -0.0168027
Part.ActiveView().RotateAboutCenter -0.00423499, 0
Part.ActiveView().RotateAboutCenter -0.012705, 0.0168027
Part.ActiveView().RotateAboutCenter -0.012705, 0.0224036
Part.ActiveView().RotateAboutCenter -0.00846998, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0168027
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0112018
Part.ActiveView().RotateAboutCenter -0.00846998, 0.0336054
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0280045
Part.ActiveView().RotateAboutCenter -0.00423499, 0.0280045
Part.ActiveView().RotateAboutCenter -0.00423499, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.0560089
Part.ActiveView().RotateAboutCenter 0, 0.0448072
Part.ActiveView().RotateAboutCenter 0, 0.0896143
Part.ActiveView().RotateAboutCenter 0, 0.0168027
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0112018
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0112018
Part.ActiveView().RotateAboutCenter 0.012705, -0.0280045
Part.ActiveView().RotateAboutCenter 0.00423499, -0.00560089
Part.ActiveView().RotateAboutCenter 0, -0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ActiveView().RotateAboutCenter 0, 0.00560089
Part.ShowNamedView2 "*Isometric", 7
Part.TranslateComponent
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "COMPONENT", 0.1883134496728, 0.05167683207532, 0.0007620000000657
Part.ViewDisplayWireframe
Part.ViewDispTempRefaxes
Part.TranslateComponent
Part.ViewZoomTo2 -0.0935056, 0.0689678, 0.000219982, 0.0500995, -0.0382002, 0.000219982
Part.AndSelectByID "@SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "AXIS", 0.002040567179738, 0.001695448877895, -0.003354740521898
Part.DeSelectByID "@SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "AXIS", 0.007274952251805, 0.007156059685132, -0.01404884897048
Part.ClearSelection
Part.ViewOrientationUndo
Part.TranslateComponent
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "COMPONENT", -0.1617865170564, 0.1023989987257, 0.000761999999952
Part.TranslateComponent
Part.AndSelectByID "@SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "AXIS", -0.01968705549272, -0.003062746360069, 0.02313030411081
Part.AndSelectByID "@SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "AXIS", 0.005492196919605, 0.005687957525842, -0.0107982300675
Part.AddMate 0, 2, 0, 0.01, 0.5235987755983
Part.ClearSelection
Part.TranslateComponent
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.ShowNamedView2 "*Back", 2
Part.ShowNamedView2 "*Right", 4
Part.EditRebuild
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
Part.TranslateComponent
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "COMPONENT", -0.1562940433811, 0.1003355212266, 0.0007620000000088
Part.ShowNamedView2 "*Front", 1
Part.SelectByID "front@SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "PLANE", 0, 0, 0
Part.AndSelectByID "front@SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "PLANE", 0, 0, 0
Part.ViewZoomtofit
Part.ViewZoomTo2 0.060217, 0.0589448, -0.01143, 0.0983828, 0.0368935, -0.01143
' MSGBOX
' This mate has over defined the assembly.  Consider deleting some of the over defining mates.

Part.AddMate 6, 2, 0, 0.01, 0
Part.ClearSelection
Part.SelectByID "Coincident1", "MATE", 0, 0, 0
Part.EditDelete
Part.SelectByID "Angle1", "MATE", 0, 0, 0
Part.SelectByID "", "FACE", 0.07345343364442, 0.05855975763293, 0
Part.SelectByID "Angle1", "MATE", 0, 0, 0
Part.EditDelete
Part.ViewZoomtofit
Part.ShowNamedView2 "*Isometric", 7
Part.TranslateComponent
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "COMPONENT", 0.1801540321974, 0.1501588848255, 0.001356942077564
Part.ViewDisplayShaded
Part.ActiveView().RotateAboutCenter 0.01694, -0.0448072
Part.ActiveView().RotateAboutCenter 0.0465849, -0.0560089
Part.ActiveView().RotateAboutCenter 0.0338799, -0.0448072
Part.ActiveView().RotateAboutCenter 0.0423499, -0.0560089
Part.ActiveView().RotateAboutCenter 0.0296449, -0.0448072
Part.ActiveView().RotateAboutCenter 0.0762298, -0.156825
Part.ActiveView().RotateAboutCenter 0.0677598, -0.145623
Part.ActiveView().RotateAboutCenter 0.0338799, -0.0672107
Part.ActiveView().RotateAboutCenter 0.0254099, -0.0392063
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0112018
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0112018
Part.ActiveView().RotateAboutCenter 0.01694, -0.0280045
Part.ActiveView().RotateAboutCenter 0.01694, -0.0168027
Part.ActiveView().RotateAboutCenter 0.00423499, -0.0168027
Part.ActiveView().RotateAboutCenter 0.00423499, -0.00560089
Part.ActiveView().RotateAboutCenter 0.01694, -0.0336054
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0112018
Part.ActiveView().RotateAboutCenter 0.00846998, -0.0112018
Part.ActiveView().RotateAboutCenter 0.012705, -0.0280045
Part.ActiveView().RotateAboutCenter 0.0296449, -0.0504081
Part.ActiveView().RotateAboutCenter 0.00423499, -0.00560089
Part.AndSelectByID "", "FACE", -0.06661560736092, 0.01175503013081, -0.02362199999993
Part.AndSelectByID "", "FACE", -0.06033061816947, 0.1816590547162, 0.06088112048292
Part.AddMate 3, 2, 0, 0.01, 0.5235987755983
Part.ClearSelection
Part.SelectByID "Parallel1", "MATE", 0, 0, 0
Part.SelectByID "Parallel1", "MATE", 0, 0, 0
Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Parallel1"
Part.ClearSelection
Part.SelectByID "Parallel1", "MATE", 0, 0, 0
Part.EditDelete
Part.AndSelectByID "", "FACE", -0.09591053215865, 0.05156425442317, -0.02362199999993
Part.AndSelectByID "", "FACE", -0.09991652413248, 0.1746633790298, 0.06088112048292
Part.AddMate 0, 2, 0, 0.01, 0.5235987755983
Part.ClearSelection
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.UnfixComponent
Part.ClearSelection
Part.ShowNamedView2 "*Front", 1
Part.TranslateComponent
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "COMPONENT", -0.2003985686736, 0.05566626907601, 0.0007620000000088
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.EditRebuild
Part.ClearSelection
Part.SelectByID "SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "COMPONENT", 0, 0, 0
Part.FixComponent
Part.ClearSelection
Part.TranslateComponent
Part.SelectByID "SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "COMPONENT", -0.1535217105044, -0.05566626907601, 0.0007620000000088
Part.TranslateComponent
Part.ShowNamedView2 "*Isometric", 7
Part.ShowNamedView2 "*Front", 1
Part.ViewDisplayWireframe
Part.SelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0
Part.AndSelectByID "Point1@Origin@SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "EXTSKETCHPOINT", 0, 0, 0
Part.AndSelectByID "Point1@Origin@SEDIMENT TRAP LARGE GEAR-1@SEDIMENT TRAP DISK", "EXTSKETCHPOINT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0
Part.AndSelectByID "Point1@Origin@SEDIMENT TRAP LARGE GEAR RETAINER-1@SEDIMENT TRAP DISK", "EXTSKETCHPOINT", 0, 0, 0
Part.AddMate 0, -1, 0, 0.01, 0.5235987755983
Part.ClearSelection
Part.SelectByID "SEDIMENT TRAP DISK.SLDASM", "COMPONENT", 0, 0, 0
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SEDIMENT TRAP LARGE GEAR.SLDPRT")
Part.ClearSelection
swApp.ExitApp
End Sub