"mi

A

Private Sub Timer2_Iimer() '1n alto a destra (ricopiare l‘incolonnamento) If verso = 1 The“ T 100 shpsfera.Move 5hp5fera.Left + 100, shpsfera. op If shpsfera.Top <= 0 _ Then L “~verso = 2 End If If shpsfera.Laft > 17640 _ Then verso = 2 End If :. End If i

'in basso a destra If verso = 2 Then

shpsfera.Move shpsfera.Left + 100,!shqugra.Top + 100

If shpsfera.Left > 17640 Then _~ Fk‘jzy ‘_ verso = 3 , ‘« îfoîÈ‘Îîf End If ' ' ° "i. ‘3 "” .“ If shpsfera.Top > 7560 Then 4*\Z”Î'”… verso = 1 … "“il @RUSÎK “» End If * “ * “”""

" ,na“ End If ' î ' …ARÈK * V

'in basso a sinistra “ “…i * \ If verso = 3 Then ";»?UWW A»? shpsfera. Move shpsfera. Left 100, Bhpsfera. Top + 100 ‘“11 ?1 ‘ If shpsfera.Top > 7560 Then kh &“ «*

verso = 4 . ‘ "

End If 3"v“ If shpsfera.Left <= 0 Then M

verso = 2 “

End If ,‘ ‘

End If

'ln alto a sinistra If verso = 4 Then

shpsfera.Move shpsfera.Lefc 100 shpsfera.Top 100

If shpsfera.Left <= 0 Then . verso = 1

End If

If shpsfera.Top <= 0 Then

verso = 3

End If

End If

I