How can I set VB6 programs to be "always on top"?

[Tigerman]

Using VB6, is there a property or function that will keep VB applications "always on top" of other applications even though it may not have focus? Thanks!

 

[dsi]

Assuming you are talking about a form:
You can use the SetWindowPos API function.

'To Force Form On Top
Private 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
'For SetWindowPos
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

    Dim i As Long
    'Force Form On Top
    i = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
    'Remove Forced Setting
    i = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)

 

[Tigerman]

Thanks, dsi. Yes, I was speaking about forms. I appreciate the help. I will give it a whirl! Thanks again.