Pelota que rebota

[dopito]

Hola, he estado mirado codigos para hacer que una imagen (pelota) rebote por un formulario, tengo esto:

Option Explicit
Dim Arriba As Boolean
Dim Derecha As Boolean
Const Incremento = 50

Private Sub Form_Load()
Arriba = False
Derecha = False
End Sub

Private Sub Timer1_Timer()
If (((Imagen1.Left + Imagen1.Width) + Incremento) > Me.Width) Then
Derecha = Not Derecha
End If

If (Imagen1.Left - Incremento < 0) And Derecha = False Then
Derecha = True
End If

If (((Imagen1.Top + Imagen1.Height) + Incremento) > Me.Height) Then
Arriba = Not Arriba
End If

If (Imagen1.Top - Incremento < 0) And Arriba = False Then
Arriba = True
End If


Imagen1.Move IIf(Derecha = True, Imagen1.Left + Incremento, Imagen1.Left - Incremento), IIf(Arriba = True, Imagen1.Top + Incremento, Imagen1.Top - Incremento)
Me.Caption = Imagen1.Left & ", " & Imagen1.Top
End Sub
---------------------

pero me da un error: en Imagen1.Move
Pone: Error 1 'Public Event Move(sender As Object, e As System.EventArgs)' es un evento y no se puede llamar directamente. Utilice la instrucción RaiseEvent para provocar un evento


Alguien podria decirme de que va eso?
Muchas Gracias!