Prevent window caption blinking on activation

I have an icon in system tray.
Double click on that icon fires an event in which I'm using to make the window appear.
But when it appears, its not activated like the caption is grayed out and it blinks 3 times unless I click on it.
AppActivate solves the problem but I can't use it since I have multiple instances of my program running at the same time and they all have same caption while appactivate works on caption title so I want an alternate.

Note: setactivewindow, setforegroundwindow, setdesktopwindow, me.setfocus e.t.c nothing works.
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.


This might work (if not, plz let me know):

''bas code:
Public Declare Function SetFocusAPI Lib "user32.dll" Alias "SetFocus" (ByVal hWnd As Long) As Long

''form code:

Dim retval As Long  ' return value
' Give your form's hWnd focus
retval = SetFocusAPI(me.hWnd)

If you have flashing problems, try this, too:

''bas code

  cbSize As Long
  Hwnd As Long
  dwFlags As Long
  uCount As Long
  dwTimeout As Long
End Type

Private Const FLASHW_STOP = 0

Private Declare Function FlashWindowEx Lib "user32" _
   (FWInfo As FLASHWINFO) As Boolean

''form code:

Dim bRet As Boolean

Dim Hwnd as Long, Dim uCount As Long

hWnd = me.hWnd
uCount = 1

With udtFWInfo
   .cbSize = 20
   .Hwnd = hWnd
   .dwFlags = FLASHW_TRAY
   .uCount = uCount 'flash window x times
   .dwTimeout = 0
End With

bRet = FlashWindowEx(udtFWInfo)


hope this helps...

Hasan_KhanAuthor Commented:
It doesn't blink anymore but still it ain't activated.
Hasan_KhanAuthor Commented:
I've found a perfect solution to the problem.
I temporarily add few white spaces at the end of the caption.
Do the AppActivate on it and then change it back.

Nothing else works for me.
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!


Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

SetForegroundWindow me.hWnd

may work...

     Ack, you've already tried that... nm... Perhaps use SetForegroundWindow in combination with the remove blinking code? I'm out of ideas.. :)

Question closed and points refunded

CS Moderator

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Hasan_KhanAuthor Commented:
ambientnet I've tried all the combinations with all the APIs but the problem got solved only by the way I mentioned above.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.