Hola Enter, aca te dejo el code ... salu2
'By Softmania
'Esto lo usas de la siguiente manera en el load del form
'Dim B as boolean
'B = POSICION_FORM ( MOSTRAR_ARRIBA , Me.hwnd )
'MODULO
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 Const HWND_MOSTRAR_ARRIBA = -1 'esto es lo que te permitirá mostrarlo arriba
Private Const HWND_NO_MOSTRAR_ARRIBA = -2
'esto permite que la api no mueva el form a la posción top y left 0
Private Const NO_MOVER = &H2
'esto permite que la api no redimencione el tamaño del form
Private Const NO_DIMENSIONAR = &H1
Enum ENUM_POSICION
MOSTRAR_ARRIBA = 1
NO_MOSTRAR_ARRIBA = 0
End Enum
Public Function POSICION_FORM(Posicion As ENUM_POSICION, lHWND As Long) As Boolean
Dim lPosicion As Long
Select Case Posicion
Case 0
lPosicion = HWND_NO_MOSTRAR_ARRIBA
Case 1
lPosicion = HWND_MOSTRAR_ARRIBA
Case Else
Exit Function
End Select
If SetWindowPos(lHWND, lPosicion, 0, 0, 0, 0, NO_MOVER _
+ NO_DIMENSIONAR) Then
POSICION_FORM = True
End If
End Function