TRIK ANIMASI ICON TITLE BAR

Trik animasi icon title bar dengan visual basic

Assalamualaikum wr, wb..

Tentunya akan lebih menarik apabila aplikasi kita dilengkapi dengan icon pada
title bar yang bergerak seperti halnya gambar animasi, untuk membuat icon seperti
itu sangat mudah sekali hanya dengan sedikit kode saja kita bisa membuat icon animasi pada tite bar.
Karna itu simak trik berikut ini :

Langkah-langkah trik membuat animasi icon pada title bar :

1. Buka program Visual Basic anda, dan mulailah dengan form baru.
2. Masukan tiga komponen gambar dengan memilih PictureBox pada Tab ControlBox.
   Pilih properties picture untuk memilih gambar icon (gambar sebaiknya berformat .ICO)
   Ketiga gambar icon harus beda antara satu dengan yang lainnya.
   Lihat contoh dibawah ini

3. Masukan komponen timer dan atur properties intervalnya menjadi 1000
4. Masukan kode berikut pada prosedur form_load() dan timer1_timer()

Option Explicit   ' pada area Declaration
Dim num As Integer 'pada area Declaration

Private Sub Form_Load()
    num = 1
End Sub

Private Sub Timer1_Timer()
    Select Case num
        Case 1
            Form1.Icon = Picture1.Picture
        Case 2
            Form1.Icon = Picture2.Picture
        Case 3
            Form1.Icon = Picture3.Picture
    End Select
    num = num + 1
    If num > 3 Then num = 1
End Sub
5. Jalankan program dengan menekan tombol F5 pada keyboard anda
   dan lihat hasilnya..

   Sekarang pada title bar aplikasi anda mempunyai icon animasi, keren kan ?

   Selamat mencoba..



Wassalam... n smoga bermanfaat...