Private Sub Form_Timer() Dim Hw Hw = Forms("MojaForma").hWnd FlashWindow Hw, True End Sub