Alway On Top method no longer works for me

[SamSpade]

Below is what I did in VB6 to set a form to be on top.

It nolonger works.

Questions:

Is there a reason to expect it to not work because of the new VS?

Is there a reason to expect it to not work in XP?

Is there an approach that does work?

THANKS

Public Shared Sub AlwaysOnTop(ByVal aHwnd As System.IntPtr, ByVal OnTop As
Boolean)

Const HWND_TOPMOST As Integer = -1

Const HWND_NOTOPMOST As Integer = -2

Dim hwndInsertAfter As Integer

hwndInsertAfter = VB.IIf(OnTop, HWND_TOPMOST, HWND_NOTOPMOST)

Win32.User.SetWindowPos(aHwnd, hwndInsertAfter, 0, 0, 0, 0,
Win32.User.SWP_NOMOVE Or Win32.User.SWP_NOSIZE)

End Sub

[Cor]

Hi Sam,

To make it understandable for me, is this the same as the property.

me.topmost = true

Cor

[Herfried K. Wagner [MVP]]

* " SamSpade" <st**************@REMOVEaol.com> scripsit:

Below is what I did in VB6 to set a form to be on top.

Set the form's 'TopMost' property to 'True'.

--
Herfried K. Wagner [MVP]
<http://dotnet.mvps.org/>

[Cor]

Hi Herfried,

You spoil my message.

:-(

Cor

[Herfried K. Wagner [MVP]]

* "Cor" <no*@non.com> scripsit:

You spoil my message.

Sorry, sync problems today :-(...

--
Herfried K. Wagner [MVP]
<http://dotnet.mvps.org/>

[SamSpade]

To make it understandable for me, is this the same as the property.

me.topmost = true

Sure sounds like it!

Thanks for both replies
" SamSpade" <st**************@REMOVEaol.com> wrote in message
news:Oy**************@TK2MSFTNGP10.phx.gbl...

Below is what I did in VB6 to set a form to be on top.

It nolonger works.

Questions:

Is there a reason to expect it to not work because of the new VS?

Is there a reason to expect it to not work in XP?

Is there an approach that does work?

THANKS

Public Shared Sub AlwaysOnTop(ByVal aHwnd As System.IntPtr, ByVal OnTop As
Boolean)

Const HWND_TOPMOST As Integer = -1

Const HWND_NOTOPMOST As Integer = -2

Dim hwndInsertAfter As Integer

hwndInsertAfter = VB.IIf(OnTop, HWND_TOPMOST, HWND_NOTOPMOST)

Win32.User.SetWindowPos(aHwnd, hwndInsertAfter, 0, 0, 0, 0,
Win32.User.SWP_NOMOVE Or Win32.User.SWP_NOSIZE)

End Sub

[Cor]

Hi Sam,

If you want your form always on top, Yes

Cor