focus of form

If I have 2 forms, one on top of the other, but the bottom form is visible, is it possible to click on the bottom form, thereby giving it focus, but still have the the top form remain on top of the bottom form.
timpetersAsked:
Who is Participating?
 
raygibbinsCommented:
The following will allow any form to remain on top of all other windows

Add the following declarations in a module

Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

In the form load event add the following code
dim success as long

Success = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
0
 
watyCommented:
oops, raygibbins has just posted it before me.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.