| Making the
worm crawl |
|
|
|
|
|
|
|
|
|
|
| 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 |
|||||||||