Ihr Programm ist minimiert und arbeitet Befehle im Hintergrund ab ?
    Mit diesem Tip bringen Sie Ihr Programm dazu, sich bemerkbar zu machen,
    wenn es fertig ist:

ERFORDERLICHE OBJEKTE

   1 Timer (Timer1)

 FORM-CODE

   Private Declare Function FlashWindow Lib "User32" _
      (ByVal hwnd As Long, ByVal bInvert As Long) As Long

   Private Sub Form_Load()
      With Timer1
         .Enabled = False
         .Interval = 500
      End With
   End Sub

   Private Sub Form_Resize()
      'Minimiert ? Dann blinken
      If Me.WindowState = 0 Then
         Timer1.Enabled = False
         Call FlashWindow(Form1.hwnd, False)
      Else
         Timer1.Enabled = True
      End If
   End Sub

   Private Sub Timer1_Timer()
      Call FlashWindow(Form1.hwnd, True)
   End Sub