Membuat Animasi Bola dengan VB.Net

Iseng – iseng bermain lagi dengan Visual Basic setelah agak lama vakum, kali saya memcoba membuat animasi bola menggunakan visual studio,bola ini akan bergerak ke kanan kiri,atas dan bawah dan akan bergerak sesuai pola nya jika berbentur di masing –masing dinding form.Disini saya menggunakan visual studio 2008,nah disini yang menjadi perbedaan visual studio 2008 dengan 2010 yaitu terletak pad tool Ovalshape,by default visual studio 2008 komponen ini belum tersedia,jika sudah menggunakan visual studio 2010 tool ini otomatis sudah tersedia.Jika kita masih menggunakan visual studio 2008 maka kita perlu instal dulu Powerpacks 3.0,installer nya bisa di unduh Disini
Jika sudah diinstal maka tampilan akan seperti ini

Ok kita mulai membuat nya :klik file –new project,pilih Visual Basic-WIndows Form Application lalu klik ok

Tarik Ovalshape ke form,lalu set di bagian propertis nya
Height :50
Weight :50
BackColor :Red
BackStyle : Opaque

Tartik komponen Timer alu set dibagin propertis nya
Enable : True
Interval : 1

Doble klik Timer untuk mulai code nya,isikan code ini lalu tekan f5 untuk melihat hasil nya
OvalShape1.Left += 5

lalu tambahkan code ini
Dim moveright As Boolean     (Untuk pemberian event gerak ditampung di variable moveright)
If moveright = True Then
            OvalShape1.Left += 5
        Else
            OvalShape1.Left -= 5
        End If
        If OvalShape1.Left <= Me.ClientRectangle.Left Then (Memberikan pergerakan ke kiri dan ke kanan)
             moveright = True
        End If
        If OvalShape1.Left + OvalShape1.Width >= Me.ClientRectangle.Right Then (memberikan Pantulan jika object bergerak ke kanan)
            moveright = False
        End If

Untuk memberikan pergerakan atas dan bawah tambahkan code ini
Dim moveup As Boolean
If moveup = True Then
            OvalShape1.Top += 5
        Else
            OvalShape1.Top -= 5
        End If
        If OvalShape1.Top <= Me.ClientRectangle.Top Then
            moveup = True
        End If
        If OvalShape1.Top + OvalShape1.Width >= Me.ClientRectangle.Bottom Then
            moveup = False
        End If