superponer un formulario

Iniciado por sozs_30, 5 Diciembre 2005, 19:38 PM

0 Miembros y 1 Visitante están viendo este tema.

sozs_30

saludos a todos primero ue nada desearia saber si alguien de ustedes me podria dar una pequeña ayudita en la construccion de un programa y es que nesesito superponer la ventana de mi programa ante todo lo que encuentre en la pc es decir que tenga prioridad sobre los demas les agradeceria su ayuda y si alguen esta dispuesto a ayudarle le puedo pasar el ratero msnmejorado.... que tengan un buen dia see you later

germixxx


Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1

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

Private Sub Form_Load()
Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub


El soborno del ratero no es necesario
            saludos