' neobhodimo nalicie Timer1
Private Declare Function FlashWindow Lib "user32" ( _
                            ByVal hwnd As Long, _
                            ByVal bInvert As Long) As Long
Private Sub Form_Load()
 Timer1.Interval =  200 
 Timer1.Enabled = False
End Sub

Private Sub Form_Resize()
With Form1
 If .WindowState = vbMinimized Then
  Timer1.Enabled = True
 Else
  Timer1.Enabled = False
 End If
End With
Form1.SetFocus
End Sub
Private Sub Timer1_Timer()
    FlashWindow Me.hwnd,  1 
End Sub

Form1.SetFocus