[VB6] Oggetti in movimento

[yyzyyz]

qualkosa di questo tipo? (my ping-pong)

Dim i As Integer
Private Sub Form_Load()
i = 100
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + i

If Label1.Left >= Form1.Width - Label1.Width Then
    i = i - 100
    ElseIf Label1.Left <= 0 Then
    i = i + 100
End If

End Sub