Cómo poner la ventana arriba en VB
Cree un nuevo módulo de clase:
Opción explícita
Declare la función SetWindowPosamp; 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)
Código de ventana:
Dim rtn
'Hacer la ventana en la parte superior
rtn = SetWindowPos( Me.hwnd, -1, 0, 0, 0, 0, 0, 3)
'Cancelar la ventana en el nivel superior
'rtn = SetWindowPos( F_V.hwnd, -2, 0, 0, 0, 0, 0, 3)
'Cancelar la ventana en el nivel superior
'rtn = SetWindowPos(F_V.hwnd, -2, 0, 0, 0, 0, 0, 3)