Formulario siempre visible

[pkj]

Código vb:

Private Const conHwndTopmost = -1
Private Const conHwndNoTopmost = -2
Private Const conSwpNoSize = &H1
Private Const conSwpNoMove = &H2
Private Const conSwpNoActivate = &H10
Private Const conSwpShowWindow = &H40
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
 
Sub SiempreVisibleOn(ByVal hWndForm As Long)
  SetWindowPos hWndForm, conHwndTopmost, 0, 0, 0, 0, conSwpNoActivate Or conSwpNoMove Or conSwpNoSize
End Sub
 
'------------------------------------
 
Sub SiempreVisibleOff(ByVal hWndForm As Long)
  SetWindowPos hWndForm, conHwndNoTopmost, 0, 0, 0, 0, conSwpNoActivate Or conSwpNoMove Or conSwpNoSize
End Sub
 

Código vb:

' este boton activa el siempre visible para el form en el que lo pongas
Private Sub Command1_Click
  SiempreVisibleOn Me.hWnd
End Sub
 
' y este lo desactiva
Private Sub Command2_Click
  SiempreVisibleOff Me.hWnd
End Sub
 

Saludos