Please tell me what I'm doing wrong:

[dimava]

please help, what I"m trying to do is have the object labeled Flash1 to go diagonal down the current coordinates of it is -5000(left) & -5240(top)

Dim intflashL As Single
Dim intflashT As Single
__________________________________________
Private Sub Timer2_Timer()
If Flash1.Left = 0 Then
Else:
intflashL = intflashL + 1000
intflashT = intflashT + 1000
intflashL = Flash1.Left
intflashT = Flash1.Top
End If
End Sub

OH YEA.... I forgot to tell you my problem its:

when ever I start it it doesn't start at -5000,-5240
it just styarts in the middle of the screen, and goes dianolly down


thanks in advance