Moving picture across picture

[Anthony]

So I think this is pretty simple. Basically I have a timer that runs at, lets say, interval 50. Then I have two picture boxes and one is an actual picture while the other is just there because it's the way I did this. Here is the code for the timer.

Code:

Private Sub tmr1_Timer()
    pic1.Left = pic1.Left + 100
'This loops it back when it gets to the edge
    If pic1.Left > pic2.ScaleWidth Then
    pic1.Left = -8760
    End If
End Sub

So what I am wondering is if anybody knows an easier more efficient way of doing this.