Private sub Form_Load()
     image1.left = 0
     Timer1.enabled = true
     timer1.interval = 50
End Sub
 
Private Sub Timer1()
     if image1.left < 3000 then
        image1.left = image1.left +3
     else
        image1.left = 0
     end if
end sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)