Kode pada form1:
Private Sub Command1_Click()
frmFlash.Show
End Sub
Kode ada frmFlash:
Option Explicit
Private Declare
Function FlashWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal bInvert As Long) As Long
Private Sub Form_Load()
tmrFlash.Interval = 1000 / 5
tmrFlash.Enabled = True
End Sub
Private Sub tmrFlash_Timer()
Dim Ret As Long
Ret = FlashWindow(hwnd, CLng(True))
End Sub
Tekan tombol Run (F5) lalu klik tombol command1 pada form1 maka muncul
frmFlash (berkedip) seperti gambar di bawah ini: