Not a Member Yet,
Click here to Register
How do you like the new design?

ID: 42
Viewed: 2337
Added: Dec 01, 2001
Snippet uploaded by: Mark
Written By: Mark
Demo: Sorry, no demo

User Rated at: 0 Stars
Rate This:

Thank you for your vote. Please wait...

It appears you already voted for this snippet

It appears your vote value was empty

Make a form stay on top of all other forms.

Highlight all by clicking in box
Declare Function SetWindowPos& Lib "user32" (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)

Highlight All
'this code makes the window stay on top
rtn = SetWindowPos(OnTop.hwnd, -2, 0, 0, 0, 0, 3)

'window will not stay on top with this code
rtn = SetWindowPos(OnTop.hwnd, -1, 0, 0, 0, 0, 3)

No Comments to show

Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.

Replying to a Comment...

Adding your comment. Please wait...

Thanks for adding your comment!. After further review it will be added.

There was a problem adding your comment. Please try again.

Please complete all the fields in the form before sending.

© 2002 - 2017 All Rights Reserved. Conditions