On Top
Coloca esto en un módulo BAS
'******************************************************
'AppOnTop
'******************************************************
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
Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const Flags = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
Coloca este código para que tu form (frmMyForm) esté siempre visible.
SetWindowPos frmMyForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
Coloca este código para que tu form (frmMyForm) vuelva a la normalidad.
SetWindowPos frmMyForm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS
