How do I make a form to be always on top? even over other applications.

I would like to make a control pad for different applications..

Thanks,

'this goes in bas file under declarations

Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal
hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal
cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)

Global Const CONHWNDTOPMOST = -1
Global Const CONHWNDNOTOPMOST = -2
Global Const CONSWPNOACTIVATE = &H10
Global Const CONSWPSHOWWINDOW = &H40

'now i make it to where they can choose so have something to 'where they
can choose and make a form or something show and 'use this....

Sub Form_Load ()
If frmONTOP.Visible = True Then
    SetWindowPos hWnd, CONHWNDTOPMOST, 0, 0, 0, 0, CONSWPNOACTIVATE Or
CONSWPSHOWWINDOW
Else
    SetWindowPos hWnd, CONHWNDNOTOPMOST, 0, 0, 0, 0, CONSWPNOACTIVATE Or
CONSWPSHOWWINDOW
End If
End Sub

-=?(D sk=-

Hi - you do this (32-bit):

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 HWND_NOTOPMOST = -2
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40

Public Sub SetWindowOnTop(xForm As Form, ByVal fOnTop As Boolean)
  Dim status As Long
  Dim xFlag As Long
  Dim xFaktor As Integer

  xFlag = HWND_TOPMOST
  xFaktor = Screen.TwipsPerPixelX '// converting twips to pixels

  If Not fOnTop Then xFlag = HWND_NOTOPMOST
  With xForm
    status = SetWindowPos(.hwnd, xFlag, .Left / xFaktor, .Top / xFaktor,
Width / xFaktor, .Height / xFaktor, SWP_NOACTIVATE Or SWP_SHOWWINDOW)
  End With
End Sub

Jan.