Form Kedip

Form kedip adalah form yang titlebar-nya (judul di taskbar) berkedip-kedip. Form kedip biasanya digunakan untuk menarik perhatian User agar mengaktifkan form tersebut. Berilkut cara membuatnya :

Buat Form baru dengan sebuah kontrol Timer(Enabled=True; Interval=500) didalamnya.

[ VB 6.0 ]
Di bagian '(Declarations)' dar Form ketikkan :

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

Di bagian 'Timer1_Timer' ketikkan :

If GetActiveWindow <> Me.hwnd Then 'jika form tidak aktif
FlashWindow Me.hwnd, 1
Else
'jika form aktif
End If

[ VB .NET ]
Di bagian '(Declarations)' dar Form ketikkan :

Private Declare Function GetActiveWindow Lib "user32" () As Integer
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Integer, ByVal bInvert As Integer) As Integer

Di bagian 'Timer1_Tick' ketikkan :

If GetActiveWindow <> Me.Handle.ToInt32 Then 'jika form tidak aktif
FlashWindow(Me.Handle.ToInt32, 1)
Else
'jika form aktif
End If
End Sub

Untuk peng-aktif/nonaktif-an pengedipan Form, Anda tinggal merubah properti 'Enabled' pada kontrol Timer.