getting thing to move

Can someone help me out with getting a image to move upward on the screen starting at random location at the bottom. Thanks

Code:

---

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.