Form Başlığını Yakıp Söndürmek

(General)(Declaration)

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

ByVal bInvert As Long) As Long



‘ Timer1.Interval = 1000

Private Sub Timer1_Timer()

deger = FlashWindow(Me.hwnd, 1)

End Sub



Private Sub Command1_Click()

' İşlemi başlatır

Timer1.Enabled = True

End Sub



Private Sub Command2_Click()

' İşlemi durduur

Timer1.Enabled = False

End Sub