Titre: Fenêtre au-dessus

Description:

Permet de mettre une fenêtre au dessus de toutes les autres.

Le code:

Private Sub Command1_Click()
  SetWindowPos FrmDessus.hwnd, HWND_TOPMOST, FrmDessus.Left / 15, FrmDessus.Top / 15, FrmDessus.Width / 15, FrmDessus.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub

 

Dans le fichier module:

Option Explicit
Declare Sub 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)
Global Const HWND_TOPMOST = -1
Global Const SWP_NOACTIVATE = &H10
Global Const SWP_SHOWWINDOW = &H40