Membuat Tittle Bar Berkedip Dengan Visual Basic 6.0

'Tambahkan modul untuk proyek Anda (Dalam menu pilih Project -> Add Module, Kemudian klik Open)
'Masukkan 2 CommandButtons untuk membentuk Anda (bernama Command1 dan perintah2)
'Ketika Anda akan menekan tombol pertama judul bar akan mulai berkedip.
'Untuk menghentikan tekan berkedip pada tombol kedua

'Masukkan kode untuk modul ini:

Declare Function FlashWindow Lib "user32" _
(ByVal hwnd As Long, ByVal bInvert As Long) As Long

masukan coding dibawah ini ke dalam form :

Dim blnDoorgaan As Boolean
Public Sub Flash(ByRef Form As Form, ByVal blnFlash As Boolean)
Dim sngStart As Single

If blnFlash Then
blnDoorgaan = True
Else
blnDoorgaan = False
End If
Do While blnDoorgaan
FlashWindow Form.hwnd, True
sngStart = Timer
'Change the 0.5 number to increase\decrease the time between the flashes
Do While Timer < sngStart + 0.5
DoEvents
Loop
Loop
If Not blnDoorgaan Then FlashWindow Form.hwnd, False
End Sub

Private Sub Command1_Click()
Flash Form1, True
End Sub

Private Sub Command2_Click()
Flash Form1, False
End Sub