Need animating lines

[Inhumanoid]

I need a square (of black lines) that decreases in size rapidly...

A want it to decrease in width and height. But I want the top to stay where it is and the left to move (to the right) as fast as the width

pfew... (basicly the animation that happens when you hit "save" in word 97)

I just put a shape on the formed, set the property to square, and used the following:

Private Sub Form_Click()
   Dim Count As Long
   Count = shpSquare.Width + shpSquare.Left
   While shpSquare.Left < Count
      shpSquare.Width = shpSquare.Width - 10
      shpSquare.Height = shpSquare.Height - 10
      shpSquare.Left = shpSquare.Left + 10
      shpSquare.Refresh
   Wend
   shpSquare.Visible = False
End Sub

Hope this helps.


------------------
Boothman

There is a war out there and it is about who controls the information, it's all about the information.

[This message has been edited by Boothman_7 (edited 01-10-2000).]

[This message has been edited by Boothman_7 (edited 01-10-2000).]

I have a button on my toolbox that allows me to add shapes. Must be an add-in. I have had it so long I am not sure where it is. I will research and get back to you.

[Inhumanoid]

How do I put the shape on the form ??

How do I declare the shape and set its property to shape (like this ? : shpSquare.Shape = vbShapeSquare)