Trik Membuat Title Bar Flash pada Visual Basic 6.0

Terkadang sebuah program perlu ditambah komponen yang sifatnya menarik perhatian user. Hal-hal penting  yang bersifat peringatan, pemberitahuan atau hanya sebuah hiasan agar user memperhatikan sebuah kalimat perlu diberikan fasilitas tulisan yang bergerak dari kiri ke kanan atau sebaliknya pada title bar sesuai keinginan kita. Seperti judul form maupun nama program.
Dalam hal ini, kita menggunakan sebuah timer dan menulis kode pada visual basic 6.0 sebagai berikut:



Buat sebuah modul dan ketikkan kode berikut ini:
Public declare function flashwindow lib _ "user32" (byval hwnd as long, byval binvert as _ long) as long

Letakkan timer dan 2 commandbuttons pada form dengan properti:

command1.caption = "start"
command1.caption = "stop"
timer1.interval = 500 'flashes every 1/2 second'
timer1.enabled=false

code:

private sub timer1_timer()
       a& = flashwindow(me.hwnd, 1)
end sub

private sub command1_click()
     timer1.enabled = true
end sub

private sub command2_click()
    timer1.enabled = false
end sub

"Selamat mencoba ..."