Disabling Move for Userform

Happy New Year to All!

Displayed userform can be moved around. Can this 'move' properties be
disabled using VBA?

Thanks.

Hi Francis,

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 Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
RemoveMenu GetSystemMenu(FindWindow _
(vbNullString, Me.Caption), 0), 1, &H400
End Sub

MP

"Francis Ang" <[email protected]> a écrit dans le message
de news:[email protected]...
> Happy New Year to All!
>
> Displayed userform can be moved around. Can this 'move' properties be
> disabled using VBA?
>
> Thanks.

Thank you very much Michel. I really appreciate your help.


"Michel Pierron" wrote:

> Hi Francis,
>
> 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 Declare Function FindWindow Lib "user32" Alias _
> "FindWindowA" (ByVal lpClassName As String _
> , ByVal lpWindowName As String) As Long
>
> Private Sub UserForm_Initialize()
> RemoveMenu GetSystemMenu(FindWindow _
> (vbNullString, Me.Caption), 0), 1, &H400
> End Sub
>
> MP
>
> "Francis Ang" <[email protected]> a écrit dans le message
> de news:[email protected]...
> > Happy New Year to All!
> >
> > Displayed userform can be moved around. Can this 'move' properties be
> > disabled using VBA?
> >
> > Thanks.
>
>