Méthode plus radicale que UserForm

En me promenant .........

Methode radicale :

"Pour empécher un UserForm de bouger, il faut supprimer l'item Déplacement de son menu system."

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
    (ByVal hMenu As Long, ByVal nPosition As Long, _
    ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" _
    (ByVal hwnd As Long, ByVal bRevert As Long) As Long
 
 
Private Sub UserForm_Activate()
 
   Const MF_BYPOSITION = &H400
    Dim hSysMenu As Long
 
   hSysMenu = GetSystemMenu(GetActiveWindow(), False)
            retval = RemoveMenu(hSysMenu, 1, MF_BYPOSITION)
    retval = DrawMenuBar(hSysMenu)
 
End Sub

Méthode plus radicale que UserForm_Layout