Slide Over Right to Left

This is the same as Slide Over Left to Right except the image slides over from the right. Here is the OnLoad routine.

Sub Layout1_OnLoad()

Image1.Top = 0
Image1.Left = 0 + Image 1.Width

End Sub

The timer routine is also very similar except that it decrements Image1's position by 1/20 th of its width.

Sub IeTimer1_Timer()

Image1.Left = Image1.Left - (Image1.Width / 20)

If Image1.Left <= 0 Then
IeTimer1.Enabled = 0
End If

End Sub

All very simple what? It is just as easy to slide from the top or the bottom by changing the value of Image1.Top.