getting thing to move

[parksie]

Private Sub InitImage()
    Image1.X = Rnd(Me.Width)
    Image1.Y = Me.Height
End Sub
Private Sub Timer1_Timer()
    Image1.Y = Image1.Y - 60
End Sub

This should help.