Flyer_S
07 de Enero del 2003

Como hago para que un formulario quede Siempre Visible o Always on Top?...
Saludos!!

jos?
07 de Enero del 2003

Eso lo preguntan "mucho" y eso lo bajé de una página pero no guardé la dirección sino que simplemente anoté el código y el cual es el siguiente:

Esto va en un Modulo:

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)
Public Const HWND_TOPMOST& = -1
Public Const SWP_NOMOVE& = &H2
Public Const SWP_NOSIZE& = &H1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Public Sub ShowHoldForm(Ventana As Form)
Dim Success
'**** Para las ventanitas que quedan por encima de las demás, ****
Success = SetWindowPos(Ventana.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub

Y en el Load del Form:
ShowHoldForm Form1

Eso es todo para que el Form esté siempre visible ante cualquier otro Form o cualquier otra aplicación.