|
Nama
Control |
Properti |
Value |
|
Timer |
Name
Interval
Enable |
Timer1
400
False |
|
CommandButton |
Name |
cmdFlash |
Copy & paste-kan listing dibawah ini ke
Form pada code editor :
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, _
ByVal bInvert As Long) As Long
Private Sub Form_Load()
tmrFlash.Enabled = False
End Sub
Private Sub cmdFlash_Click()
tmrFlash.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim lngRet As Long
lngRet = FlashWindow(Me.hwnd, 1)
End Sub
|