Deixar o form sempre visivel
' Coloca uma form sempre visível (OnTop).
'
'Num módulo declare:
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 conHwndTopmost = -1
Global Const conHwndNoTopmost = -2
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
'Quando abrir o Form coloque o seguinte código:
NomeForm.Show
SetWindowPos NomeForm.hwnd, -1, 0, 0, 0, 0, FLAGS