1. Yeni bir proje yaratınız.
2. Form üzerine bir zamanlayıcı ve bir resim denetleyicisi koyunuz.
3. Resmin "Picture" özelliğinin yanındaki düğmeyi tıklayınız.
4. "Load Picture" diyalog pencerei ekrana geldiğinde VisualBasic\Graphics\Icons\Misc dizininden face03.ico resmini seçiniz.
5. Aşağıda verilen kodları gerekli yerlere yazınız.
Dim xChange As Integer
Dim yChange As Integer

Private Sub Form_Load
 xChange=100
 yChange=100
End Sub

Private Sub Timer1_Timer()
 Image1.Left = Image1.Left + xChange
 Image1.Top = Image1.Top + yChange
 If Image1.Left > Me.ScaleWidth Then xChange=xChange * -1
 If Image1.Left < 0 Then xChange=xChange * -1
 If Image1.Top > Me.ScaleHeight Then yChange=yChange * -1
 If Image1.Top < 0 yChange=yChange * -1
End Sub

6. "Timer Control" özellikler penceresinde "Interval" özelliğini "True" yapınız.

Programı çalıştırdığınızda, resim ekran üzerinde hareket edecek ve formun bir kenarına çarptığında yön değiştirecektir.