FIT   100
© Copyright University of Washington 1999-2000
Making the worm crawl
v
Private Sub Form_Click()
  Dim index As Integer
  index = 0
  ' make the worm crawl 200 twips in the x direction
  Do While index < 10
    inchwormX(index) = inchwormX(index) + 200
    index = index + 1
  Loop
  Call drawWorm(inchwormX(), inchwormY())
 End Sub