Type defini par l'utilisateur non defini

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringPtr, ByVal lpWindowName As StringPtr) As Long

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long

Private Sub UserForm_Initialize()
    On Error Resume Next
    Dim hWnd As Long, Style As Long
    hWnd = FindWindow(vbNullString, Me.Caption)
    Style = GetWindowLong(hWnd, -16) And Not &HC00000
    SetWindowLong hWnd, -16, Style
    DrawMenuBar hWnd
End Sub