ࡱ>  Root Entry@TCVBMACRODATAVBA_Projectpɥpɥ&Root Entry ?TCVBMACRODATAVBA_ProjectpɥPɥVBAPɥPɥ ]  ^ !"#$%&'()*+,-./0123456789:;<=?@ABCDEFGHIJKLNOPQRSTUVWXYZ[\_`abcdevghijklmnopqrstuwxyz{|}~Help PɥPɥPROJECTPROJECTwmGfrmCompression i*WJOPɥPɥfLwo 4i13 n``PɥPɥCompObj nVBFrame Ofd&o CompObjba  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKMNOPQRSTUVWXYZ[\]^_`acfgijklmnopqrstuvwxyz{|}~&FrmCompressionFrmCompressionModule1Module1ID="{802ED224-2097-11D5-9ABD-0050040284A0}" Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=FrmCompression Module=Module1 Name="Springs" HelpContextID="0" VersionCompatible32="393222000" CMG="57552B86D58A288E288E288E288E" DPB="AEACD27F7E81D482D482D4" GC="050779D4872A882A88D5" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] FrmCompression=44, 44, 1246, 837, Z, 22, 22, 1224, 815, C Module1=0, 0, 0, 0, C VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmCompression Caption = "Variable-Rate Compression Spring v2001.03.27" ClientHeight = 5460 ClientLeft = 2040 ClientTop = 330 ClientWidth = 7785 StartUpPosition = 1 'CenterOwner TypeInfoVer dir.Module1__SRP_07__SRP_1.__SRP_2f__SRP_3h__SRP_4M__SRP_5e_VBA_PROJECT>frmCompressionXDfo = 137 End  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q,,pSegments per Coil3X5Tahoma ,lCoilsaX5Tahoma$, sSpring O.D. 5TahomaH, {5TahomaH, {5TahomaCompObjpH, {5Tahoma$, wWire O.D.4 5TahomaH, {5Tahoma(,IInstalled HeightX5TahomaH, {5Tahoma$, fFree Height 5TahomaH, {5Tahoma,xX01 5TahomaH, {5Tahoma,yY01 5TahomaH, {5Tahoma,zZ01 5TahomaH, {5Tahoma,oOk0 OuTahoma(CCancel OuTahoma(hHelp5Tahoma!@H Coils: The number of free coils in the free-standing spring. The value need not be an integer but must be greater than zero. Segments per Coil: Increase for better rendering at the expense of larger file size. Segments Around Coil: Increase for better rendering at the expense of larger file size. Direction: Controls which way the spring is wound. Spring O.D.: The outside diameter of the spring. Wire O.D.: The diameter of the spring wire. Values of Wire O.D. greater than one-fourth of Spring O.D. may lead to problems. Installed Height: The height the spring is to have in the drawing. Free Height: The height of the unloaded spring. As this value becomes larger with respect to Installed Height, more coils are shown compressed at the ends of the spring. Start with a value twice as large as Installed Height and adjust as necessary. X0, Y0, and Z0: The location of the center of the bottom of the spring in your drawing relative to the World Coordinate Sytem. The axis of the spring will be parallel to the z-axis. Solid CheckBox: Check this if you absolutely must have a solid. Be advised that the execution time will be greatly increased and the success rate will be low. Selected CheckBox Check this if you want the spring to be selected after it is drawn. Default Values: If you wish to have a different set of defualt values, edit the defaults in Module1. Within a drawing session, the macro will remember settings from one use to the next. Error checking: o The macro will constrain Installed height to a value no less than Wire O.D. times Coils. o The macro will constrain Free Height to be no less than Installed Height. Problem solving: The v7 extrude function is a little quirky. If you get a message that the object is degenerated, try changing the segments per coil. Also, checking the "Solid" option mayl cause it to workin some circumstances. ###5Tahoma4Fd{03Solid5TahomaL(:Check for updates at http://home.rmci.net/winstonmitchell/35TahomaH, {5Tahoma,,aSegments Around Coil 5Tahoma4Ft{03Selected5Tahoma$ .}5%R KQDBTahoma$02LLblSegmentsPer(2@LblCoils, 2D LblSpringOD$ 4TbxCoils{, 4TbxSegmentsPerq@ #ObxDirectionWinding Direction0( 4 TbxSpringODS, 2D LlblWireOD4( 4 TbxWireOD4I42H LblInstalledHeight004TbxInstalledHeight0{0 2DLblFreeHeighteig, 4TbxFreeHeighteigq(2<LblX0 $4TbxX0g (2<LblY0$4TbxY0](2<LblZ0$4TbxZ0S(7<CbtOKk, ;<CbtCancel4k(!28LblHelp$"TbxHelp{$%TCbxSolid, &2lLblUpdates4#0'4TbxSegmentsAround0g 4(2LLblSegmentsAround0 ( )TCbxSelected Microsoft Forms 2.0 FormEmbedded Object9q }t 9rU $`n $`nU6/a,<[=d2@:9xDBJ/4@XD s1"<< <$<(<,<0<4<8<<<@ @@t @B(d `D\`4`\X  ` e%@N @ @Px  Wh pp`0`XxEi i i i i (i `@FL  i  ``PDk@V`< @H, @J@ @ @LH @* `i lz@ ep `i  P(8hX  P  @8 @ @hx @t  p`@` @P @@ @0 @( @@  bfdht@ @ @p  @ @ @( `h@ pP(xHX@h P @ ` pP(xHX@h cdht@ vX@ `( v @  w @p |/ X w@@ l @\  @L p @ H` @D 8 0 A$*\Rffff*0E41ae201d*\R1*#65*\R1*#66*\R4*#0*\R0*#19*\R0*#13*\R1*#e*\R1*#e*\R4*#1*\R1*#d*\R0*#15*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\R1*#44*\R1*#59*\R1*#3*\R1*#2*\R1*#6c48<@DHLPTX\`dhlptx| " 2HD2  ?H *p @  3 )X 3x ) 3 )h *X h p x  3 )x 3 )H 4 ) 3 )     *(     *X8 ph p 6+ 8 (   H *@  )87 &p X 4= 8F    (0< ,H H5x D NH ^6 Z 48&9 p &6( $0P"5x"@  $ =    0 P h  . ,9&2:N & 08  0EP    $* : ,9 :X &2 d 6 L8  @:NPFp&5(0"8 P `  =h    $0 $3@ $3 *> h B (4 p #   PXx?0 ?< $0? ( ,.86*h0 " H 8P "  hx \P5 B@ed](@Xpcz]0H`x'*d'*k] 8P]h]]]PERT! @' z5'(J5e<e'Ld'Lk5',*|5G'\jq   (', k ,'.k L 'Ld'Lk.Above comment is fancy term for "fudge factor"eigh Recalculate Calculate compressed coils   X @ @$h ' >Setup extrusionBuild Extrusion  ( X'< < &'> > > > $f$d'@  "   J'H "  X  'B X "  X  'D l!n TCW40EXTRUDE7p.e $PIPE;re$SMOOTH;re $APPROCSIMCURVE;re *Solid;r`ePenColor;rq 6 $ L  B$h '0e 8 $  B$t '2e : , & @$h B @  < '4 ( * G (ffffff?'(j 0 2 4 0 ( 2 47v.N N!z7x.N N !nB@| !~ V B D D B  H 6 $ L  V$h '0 8 $  V$t '2 V @ : , & @$h V @  < '4d V X @  : , & X @ $h V X @  < '4d : , & V$h '4kk 0 2 4C@p Vq TCW40CUBE7p.P *Solid P,r P!~ 6 * 8 * :C@p 6 * 8 * : , C@p:  . ,  .  ( '" 6 * 8 * :C@pqX Gj C@| B@ PB@q l%B@| l%B@ !A@| l%B@ o(#Adjust InstalledHeight if too smalleeAdjust Free Height if too smalle Reduce wire size if > springOD/4e  " ' !!Active coils (uncompressed coils)Je  ( X'<)Minimum winding pitch (zero coil spacing) * ( '$%Extrusion radius , "  ( '&AHeight/2 of active coils'Location of beginning of extrusion pathff3x-component of coils with radius=r and offset by X0nd off Report errors < &'>9Minimum winding pitch per unit height (zero coil spacing) > > > $f$d'@#1Angle where coil spacing = k1 (zero coil spacing)SEmpirical first approximation correction to account for coils loss due to angle "a"3y-component of coils with radius=r and offset by Y0l]If t is between values that produce zero coil spacing, coil spacing follows a cosine function,0For all other values of t, coil spacing is zero.ECoil position is offset by half the installed height and offset by Z0Setup trimming cubeBuild trimming cube;Intersect extrusion with trimming cube to make final springDelete temporary objectsReport intersection errors . , $Get user input from Compression formFree Height increased to ..A@HInstalled Height increased to ,.A@ ,   (  l%B@0d5G'\j5'J I5G'\jo ]_nKTSUnknown'4]KT$Solid is degenerate and is discarded'4&Surface is degenerate and is discarded'4$Boolean operation failed. Error is: 4A@'\5G'\jalk \5G'\j5G'\j5'.G5'6 zB@brror G B@- B@5' 5'5'*5'85':)There is a field = 0 that needs a number.A@ 6 * 8 * :C@p .If .InstalledHeight = 0 Then EmptyField = True`o5'k( G B@Hj](@Xpo v 2001.03.27  G'j  P %.5 , RetVal)0..P86Attribute VB_Name = "frmCompress@ion" Bas0{788C1839-D6D5-44EE-A642-1DF7A089C1C9}{C92FDA4A-EAD2-4034-AC58-E502440B73BC} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomDizDOpt 0licit  P"& Sub cbtOK_C k() 'v 2001.03.27 Dim Coils, EndRadiuHeight, WireOD, SpringInstalledFree As Dou.x, y, z, X0, YZk, k1, a, tMiRnAax It epC@#SegmentsPer)Arou.igSolidalectS$I@nteger$P@rofile spr:OD/H~W@ OD14S1C=Qre 0.95Gfile@2CircleCerAndPoint(x, y, z, x?5D@8CORe move(.IndexH F D *'BuiLld׋.VAceHFor Stepb0To ptMaxc2@-? A7a'x-compon#Ocns`6~r"M=r aWoffset by X0!ax@S9g%'yY]Pt is@qtwevalues that proXzerLo #@Xac`X, follows asine` funca|%'!7`k otherv @tl @.Pposiˆ'4half`nEx hcxk(Zp( !$a"o/a6! - @ElseS > (PioÌ % - ( + 7?!pa nIfoo!QF $M[NeAghtrimm- cub=!PC0>qւCUBPuw1*t 0tOOoOFub, n- l* }AddK $j+ofyom, C gv'IntersectǝZ to mak0Hinal4wWC0B1`lD(6l, A) ', RetVal*P9A3 <> 03zGoh ErrorHGlerp'Delete tehrary objXku"Mq&NV-W+2!H cted ,.SA^veDraw@.Views(0).R efresExit Sub  : 'Repo>rPaMs gBox .Descrip'g_PGC%e   Casewt"74"T1H= "A!wdegeneraildiscard(ed"8xt"Surfa`ge \k Unknowna  ("Bool0ean sfad.Pis: " &13 Priv cbtCancel_Click(T6Me.hid`Xo aMultiPage1_ChangeP%c 00DF49}#2.0#0#C:\DOCUME~1\Winston\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{382BAB91-34CA-11D3-BF19-0000B465872B}#1.0#0#C:\Program Files\IMSI\TCWP70\Program\IMSIGXEX.dllam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{6A481400-E531-11CF-A115-00A024158DAF}#4.0#0#C:\PROGRAM FILES\IMSI\TCWP71\PROGRAM\IMSIGX70.DLL#TurboCAD v4.1 Programmable Objects.*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{4737BAA8-D18D-4C13-8B9C-1C2C7FFED8FC}#2.0#0#C:\DOCUME~1\Winston\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{6A482400-E531-11CF-A115-00A024158DAF}#8.0#0#C:\Program Files\IMSI\TCWP100\Program\GXExt10.dll#GXExt 8.0 Type Library, IMSIGX extension.  A/frmCompression0E41ae201d{frmCompressiona,6Module10H41ae202aModule1o,B8`. Pv vHHTH*PPI AsBooleancase=Dim@doDElseGEndRFalse^GoTo_IfcinputxLongyloop{MeNewnothingOnorpublicStepSubThenTrueuntilWith IMSIGX VBAWin16~Win32MacVBA6#Project1  stdole` UserForm1) _EvaluateMSFormsCCompressionFormfCommandButton1_Clickhide9z Module1bSpringCoils5EndCoilsRadiusVHeight|WireOD4SpringODSInstalledHeight  FreeHeightxoylzqX0_Y0N_Z0`kbk1]aXtMintMaxfI`StepsSegmentsPerCoil7xSign8ProfileCubeFinalbGraphic?VertexPi^Segments. OptionButton2l@ InstalledFreeShowAtnQuSqr(CosO Application* ActiveDrawingGraphics[Addr Properties+SinAddCircleCenterAndPointRemoveϱIndex AddGraphicVerticesViewsTRefreshUserFormNLabel2,Label3,Label4,Frame1 OptionButton1k@Label5,Label6,Label7,Label8,Label9,Label10@CommandButton1|ClickValueKItemz SpringsshBl\ Intersect1RetVal; _B_var_retvalvdimFinal_B_var_dimFinal Boolean3D _B_var_newu _B_var_Final{&B1\ApptActDrcDrawing<0Grs"Grj]Gr1Gr2Verw Intersection IMSIGXEXLibe Extrusion2Deletex (DrawSpring9 _B_var_on6 ErrorHandlerOMsgBoxRErro Description  _B_var_Error)eonerror _B_var_eonerrorenerrorn_B_var_intersectvHandler ?IntersectErrorHandler/ _B_var_IfPCommandButton2}CommandButton3~CommandButton2_Click compressionMHelpfCommandButton3_ClickFA _B_var_WithYowner% _B_var_ownerRcenterW; _B_var_centerMove>y ActiveWindow+_B_var_compression/form _B_var_formNv_B_var_UserFormLabel11ATextBox1S _B_var_HelptTextBox1_Change=BuildE _B_var_Build user _B_var_GetSPfrom~  HelpContextIDu"SetFocusSendKeysNLocked Solidc CheckBox1istrueW _B_var_istruethn0 RetValTextX _B_var_Select'E_B_var_retvaltext _B_var_CaseLabel12B DefaultCoils>DefaultSegments1 DefaultWireODx"DefaultSpringODVDefaultInstalledHeight޻DefaultFreeHeight?E DefaultX0j< DefaultY0; DefaultZ0<DefaultSegmentsPerCoill_B_var_defaultsegmentspercoilOWdefaultspring0dJR_B_var_defaultspring0d; gotousererrorJ  UserError EmptyField _B_var_Untilٰ _B_var_Loop RedoActionc UndoActionaVisiblesubexitv_B_var_subexity_B_var_OptionButton1  Help_ChangeChange StatusBarʜLabel13C CheckBox2CheckBox2_Click| frmCompressionLblSegmentsPerLblCoils LblSpringOD&TbxCoilsTbxSegmentsPer% ObxDirectionbObtLeftjpObtRightd TbxSpringOD( lblWireODE TbxWireODLblInstalledHeight+TbxInstalledHeightV LblFreeHeight TbxFreeHeight~LblX0^TbxX0-.LblY0e^TbxY0-LblZ0_TbxZ0w.CbtOK0g CbtCancelLblHelpTbxHelpVCbxSolid LblUpdates(TbxSegmentsAround,LblSegmentsAround  CbxSelectedv cbtOK_Click_B_var_CompressionFormqcbtCancel_Click.tbxSegmentsPerCoilwobtsolidgDefaultSegmentsAroundCoil _B_var_DefaultSegmentsAroundCoileSelectedY DefaultSignf_B_var_DefaultSign`XSegmentsAroundCoilPO_B_var_cbxSelectedqUserForm_Click tbxZ0_ChangeLlblSegmentsPer_ClickE MultiPage14?MultiPage1_ChangeJScroll _B_var_Scroll=the'segementsaroundcoil LlblWireODR _B_var_Set GXEXTLibzGXMPSLib`{ $T1aA X1aa \Y  `Y  rU~|  @ 9)Yt (l (\ (L (< (,? ( ( ( ( 1 V    ,  :]35$l  5,  :]35^$\  5,  :]35$L  5+  f]35c  5,  :]35G$  5,  :]35$,  5,  :]35$   5,  :]357$  5,  :]35$  5,  :]35$  5,  :]35*'lFN  5c  5cc 5$tT< ,\L <lk`Y  d  h A l Y pY y t1a xY  |1a Y  1a9 Y a 1a Y    1a Y  1a Y   !)`  !A`I{W?t(x$   $t )t5xKY Vpp,xp   x(]35xp)xp   x`l5x,xp   x(]35xp)xp   x`5x,xp   x(]35xFp)xp   x` 5x*xp   xc]35x ( (,xp   x(]35xp)xp   x`5x,xp   x(]35xEp)xp   x`,5x)xp   x` 5x,xp   x(]35xp)xp   x`Bt5xp Qoxp Qoxp Qox*xp   xc]35xs ( (*xp   xc]35xpp k+''0'`: Nxx 6x`0 $ kTcp ) (xl(P`,0g5`l(x,` 5x7'''0:  x:P` 6 x`0okP] (xg  Bt=''0'`o#*#*Fx 26x`0Fl(xokP `ok@l,0( \(]g ( (l(\x`l,x(`L5 (P(\x`,0(@<5` l,xĈPERT! @`x%`%(0 %lH 6x qH4t44$" $#lt=$)tl #'`'xl=$[ 6x` % %ccc k  $?t(x$   $t )t5x?t(x$   $t )t5x<''0'` & ,'>Fx 6x`0?t(x$   $t )t5xDlqDlD7(CZlDP)CZ*C*''0'`+l*Fx 6x`08%p|L LL<d,,t\l< Dtx`0l\0 `  0   Hol !Qo* ! c]35pp !Qo, !Qo !Qo % ! Bt5 !Qo !QorU $`$A` $`n !Y9Y yQAi Y19Th Ks V ( ! 5 ( ! 5c ! 5'İ? ! 5 ( ! 5 ( ! 5 ( ! 5 ( ! 5 ( ! 5 ( ! 5c$ V !Qol !Qo* ! c]35pp !Qo, !Qo !Qo % ! Bt5 !Qo !Qo !Qoc  l(,g5l(, 5ok] g  Bt=l(ok| ok\l,lL<\ kQpZpl(\l,(L5 (|(\,l(\L<5 l,PERT! @<6(B9 k|B9 k\t9llPERT! @ttB9 k|ll l,PERT! @<6(B9 k|B9 k\t0l(|(\l,65(\(\|PERT! @lld5@\PERT! @(\|PERT! @llBt\6l$8$   < Q84='<'L'l':| N'4 Q6 lL<q:%(\%lD:%(\%lD:%(\%lD:%(\%lD:%\%lD q<LkD(|ldB9 k\lL2L(ldB9 k|lN (<tB9 k|ldtL<6l,((|tJ,ffffff?,EB9B9,(B9B9B9B94 < Q5 =4 Q5 @=5Aq*dF $6l?(8$   8 $ )852'l''%l#*F $/6lh "4LL<d,,t\l< @ 8lL<kB9 kB9 kdt0rU 0,9a@ 9  QiyY)Qy1Y Aq9a9Y 9a94a8<q  @  Dq  HA L a Pq y Tq  Xq  \  `  d) Q hy  ly  p  tq  x ) |q I  y q    q    q )  A q Y  q  ! `  ! `Iq  {W?t(x$   $t )t5xKY Vpp,xp   x(]35xp)xp   x`l5x,xp   x(]35xp)xp   x`5x,xp   x(]35xFp)xp   x` 5x*xp   xc]35x ( (,xp   x(]35xp)xp   x`5x,xp   x(]35xEp)xp   x`,5x)xp   x` 5x,xp   x(]35xp)xp   x`Bt5xp Qoxp Qoxp Qox*xp   xc]35xs ( (*xp   xc]35xpp k+''0'`: Nxx 6x`0 $ kTcp ) (xl(P`,0g5`l(x,` 5x7'''0:  x:P` 6 x`0okP] (xg  Bt=''0'`o#*#*Fx 26x`0Fl(xokP `ok@l,0( \(]g ( (l(\x`l,x(`L5 (P(\x`,0(@<5` l,xĈPERT! @`x%`%(0 %lH 6x qH4t44$" $#lt=$)tl #'`'xl=$[ 6x` % %ccc k  $?t(x$   $t )t5x?t(x$   $t )t5x<''0'` & ,'>Fx 6x`0?t(x$   $t )t5xDlqDlD7(CZlDP)CZ*C*''0'`+l*Fx 6x`0p8%p|L LL<d,,t\l< Dtx`0l\0 `  0   H<<<<<<<<<<<<<<<<<<<<<<<<<rU~~~~~~~q   Q    q (  8  ) H  y X  hX`NK*mrU~~~~~~~~~~~~~~~~~~~C ś4KsQT<  a y!Ia  frmCompressionModule1SpringsF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  9`Hj1$ 1C:\PROGRAM FILES\IMSI\TCWP71\PROGRAM\IMSIGX70.DLLIMSIGX 1Yp0FC:\WINDOWS\SYSTEM\stdole2.tlbstdoleȏ[qJ eUserForm 9a.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms aa7GL, 1C:\DOCUME~1\Winston\LOCALS~1\Temp\VBE\MSForms.exd 9aa$Hj1$ 1C:\Program Files\IMSI\TCWP100\Program\GXExt10.dllGXEXTLib )Q+LJԹ?<[=d2@:9xDBJ/4@XD s1stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Autom`ation^mMSForms> MSFErms3DD452EE1-E08F-101A-8-02608C@4D0BB4DFM20.DLL#Microsoft 9 \ Object Library/;C~1s00}#0#j0A4737B </o,xMEXl `@P\ @L @0< @D, @B @Fx (@H @J @L `N H`X(H@ z&HPp@`%((@ ( `x08hP%`x08h@ `@ X @| l (@\ @L @< h 8 4P`h@X$ @ @@ X@`BX( X@ 0P @` XP h Q/ (Q ( @ ^ b `b ` (H 04`   p `Pk$$ 8X @ @P ( H(H A$*\Rffff*0H41ae202a*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44$*\Rffff*0E41ae201d& " L d x            PPPIPPP0P(P@PHSX` $ hx @x z5G D9j5G F9j5G L9jq zB@boH 0 @  5B@$U^{HOME}A@&A@&5((w5G >9j5G P9j5G H9j5G J9j5G N9j8'>'P v 2001.03.27''9'D'F?'B'H'J'L'N5G B9j]Edit the following default values to set userform defaults on first use in a drawing session.5G9j5G 9jxScroll the help window to topx ]0H`x  Attribute VB_Name = "Module1" Option Explicit Sub DrawSpring() 'v 2001.03.27 Dim DefaultCoils,SegmentsPer0.Around1 ign'qOD, _ e0WireInstalledH eight>Free X0YZ0 As Sng4'Edit the folHlow| dq values to set us@erformsB firs in a d sess. fs3 0󇡀14 UCU0.125 LX2GZlX0.Y@`= D With frmComprCLA.TbxHelp.LockeBdTrueSetFocusIf A["" ThendK?pT Ob tLeft@FalseD8@RAƀKKD"&?DIJ"E$.K   jR)  gXXdVAS)[Y/B_Z.CbxSelecta^End fC'XScr`h e dowtopcSendKeys "^{HOM`E}", 'Cko.Show AA8-D18D-4C13-8B9C-1C2C7FFED8FC6DOCUME~1\Winston\LOCALSTem@p\VBE\S.8exd;!.E .@`M @GXEXTF>AXETLijb@@26A482400-E531-11C@F-A115@KA024158DAF}#8EProgram Files\IMSI\TCWP100\\@xt10.Pdll# @ Typek, GX extenZs.@#D/—frmCompre"s G@ fEAC@mpe@s7onP 2^ AH16B,$a,"U"(+Cbo@dule1GMdus1M2oBoo,!A; n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q4G<la01Left5Tahoma8G<r`a03Right5Tahoma<H   } "Direction4R KQDBTahomaT$TObtLeft$XObtRight