Yeni bir proje yaratınız. Form üzerine bir zamanlayıcı ve bir resim denetleyicisi koyunuz. Resmin "Picture" özelliğinin yanındaki düğmeyi tıklayınız. "Load Picture" diyalog pencerei ekrana geldiğinde VisualBasicGraphicsIconsMisc dizininden face03.ico resmini seçiniz. 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 "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.