Flash Title Bar

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	2	Caption	Play	Command1
				Stop	Command2

Masukkan souce 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

Masukkan souce ini ke dalam Module Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long