Eine UserForm kann man wenn die linke Maustaste gedrückt und gehalten wird verschieben.
Diese Funktion möchte ich deaktivieren.
Wie geht das?
danke
achim h.
Private Sub FixWindow(hWnd As Long)
Dim SysMenu As Long
Dim Ret As Long
SysMenu = GetSystemMenu(hWnd, False)
Ret = RemoveMenu(SysMenu, &HF010&, &H0&)
End Sub
Private Sub UserForm_Activate()
FixWindow FindWindow(vbNullString, Me.Caption)
End Sub