FlashWindow.vb

Option Explicit

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

Private Sub Form_GotFocus()
    Timer1.Enabled = False
End Sub

Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then
        Timer1.Interval = 500
        Timer1.Enabled = True
    Else
        Timer1.Enabled = False
    End If
End Sub

Private Sub Timer1_Timer()
    Dim success As Long
    
    success = FlashWindow(Me.hwnd, 5)
End Sub