Движение картинки согласно указанному направлению - VB

Формулировка задачи:

ребят пожалуйста помогите есть этот код как его поменять чтобы картинка с низу вверх, в лево и в низ шла как указана на фото, при этом коде картинка по деиаганили идет в лево потом в право и вниз а мне наоборот надо

Dim w, c, i, j, h 
Private Sub Form_Load()
 w = frmgov.ScaleWidth - img1.Width 
h = frmgov.ScaleHeight - img1.Height 
img1.Top = h
 img1.Left = w
 i = -1 
j = -1
 End Sub 
Private Sub Timer1_Timer()
 img1.Left = img1.Left + 100 * i
 img1.Top = img1.Top + 100 * j
 If img1.Top < 0 Then
 j = 0
 i = 1 
End If 
If img1.Left > w Then
 j = 1
 i = 0
 End If 
If img1.Top > h Then
 Form_Load 
End If End Sub

Решение задачи: «Движение картинки согласно указанному направлению»

textual
                            Листинг программы 
                        

                            Dim w, c, i, j, h 
Private Sub Form_Load()
 w = frmgov.ScaleWidth - img1.Width 
h = frmgov.ScaleHeight - img1.Height 
img1.Top = h
 img1.Left = w
 i = 0
j = -1
 End Sub 
Private Sub Timer1_Timer()
 img1.Left = img1.Left + 100 * i
 img1.Top = img1.Top + 100 * j
 If img1.Top < 0 Then
 j = 0
 i = -1 
End If 
If img1.Left < 0 Then
 j = 1
 i = 1
 End If 
If img1.Top > h Then
 Form_Load 
End If End Sub
                        