devi usare l' api SetWindowPos

la dichiarazione dell' api la trovi nel ApiTextViever

Ecco il codice (mettilo in un modulo)
'questa č la dichiarazione Api
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

'queste sono le costanti per il posizionamento
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
'queste sono le costanti per i flags
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2

'ecco la funzione
Public Sub SetOnTop(frm as form)
dim pos as long
If OnTop Then
pos=HWND_TOPMOST
Else
pos=HWND_NOTOPMOST
endif
SetWindowPos frm.hWnd, pos, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub


'tutto qua

nel form ci inserisci

setontop me,true 'per posizionarlo in primo piano

setoptop me,false 'per riportarlo allo stato normale