As Dragan has already surmized, you have let the cat out of bag. Now if you'll excuse me I need to sew a few more rhinstones on my suit.

Local loSewing, colRhinestones, lnCounter, loSuit
loSewing = createobject("clsSew")
colRhinestones = createobject("colStones", 2)
loSuit = createobject("Suit", "Elvis")

For lnCounter = 1 to colRhinestones.Count
     loSewing.AttachRhinestone(colRhinestones.Item(lnCounter), loSuit)
Endfor

Define Class clsSew as Session

     ADD OBJECT needle1 AS needle WITH ;
	Top = 0, ;
	Left = 0, ;
	Height = 10, ;
	Width = 1, ;
	SpecialEffect = 1, ;
	Name = "Needle1"

     ADD OBJECT thread1 AS thread WITH ;
	Top = 0, ;
	Left = 0, ;
	Height = 1, ;
	Width = 2000, ;
	SpecialEffect = 1, ;
	Name = "Thread1"

    PROCEDURE Init
          this.thread1.threadeyeofneedle(this.needle1)
    ENDPROC

    PROCEDURE thread1.threadeyeofneedle
          lparameters toNeedle
          toNeedle.Eye.Threadit(this)
    ENDPROC

    PROCEDURE AttachRhinestone
          lparameters toRhinestone, toSuit
          toSuit.colRhinestone.Add(toRhinestone)
    ENDPROC

ENDDEFINE

>So, that's you I'll be seeing in Vegas this weekend? *G*
>
>> my eyebrows raise up and my upper lip does this contorted Elvis impersonation. <g>