Need animating lines

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:

Code:

---

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

Quote:

---

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.

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)