Ayuda con ventanas en primer plano

[seba123neo]

Hola,lo haces asi,para ponerlo "Always on Top":

Código:

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

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2 
Const SWP_NOSIZE = &H1 'SWP_NOSIZE y SWP_NOMOVE 
Const SWP_NOMOVE = &H2
Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE 

Private Sub Form_Load()
Dim Ret As Long
Ret = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_FLAGS)
End Sub

saludos.