Visual Basic 6 - Far muovere una shape in un form

a me così funziona

Public Avanti As Boolean
Private Sub Form_Load()
Avanti = True
End Sub

Private Sub tmrTempo_Timer()
    If shpCircle.Left + shpCircle.Width >= Form1.ScaleWidth Then Avanti = True
    If shpCircle.Left <= 0 Then Avanti = False

    If Avanti = False Then shpCircle.Left = shpCircle.Left + 100
    If Avanti = True Then shpCircle.Left = shpCircle.Left - 100
End Sub

Tu praticamente devi dire (in pseudocodice):

se la pallina è sul bordo destro
avanti = false
altrimenti se la pallina è sul bordo sinistro
avanti = true

se avanti = true
blabla...
altrimenti
blabla...

Sai trasformare questo pseudocodice in codice?

ci 6 gia tu che lo dici
perchè dovrei farlo anche io???

@dany92:
hai risolto?

sisi grazie ragazzi alla fine ce l'ho fatta...grazie ancora a tutti

di niente