Have a form "always on top" 2

[Tommyhat]

I have a form that opens and populates excel windows but i want it to be shown even if the excel windows are fullscreened. is there a way to make a form "always on top" like some programs (i.e. winamp) have?

---------------------------------------
2b||!2b that == the_question

 

[PaulF]

This is from

http://support.microsoft.com/default.aspx?scid=kb;EN-US;101325

I created a new module and pasted this into it

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) As Long
Public Const HWND_TOPMOST = -1
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2

Function TopMost(F As Form)
Call SetWindowPos(F.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE)
End Function



Then for the Form ... just add to the following events

Form Timer Interval: 50
Form Timer: =TopMost([Form])

PaulF

 

[Tommyhat]

Thanks a bunch dood!

---------------------------------------
2b||!2b that == the_question