Как убрать шапку формы?

Public Sub RemoveFormCaption(ByRef Form As Object)
    Dim lStyle As Long
    
    lStyle = GetWindowLong(Form.hwnd, GWL_STYLE)
    ' блокировка вывода строки заголовка:
    lStyle = lStyle Xor WS_CAPTION
    ' уберите комментарий, чтобы блокировать системное меню:
    lStyle = lStyle Xor WS_SYSMENU
    Call SetWindowLong(Form.hwnd, GWL_STYLE, lStyle)
End Sub

Private Declare Function GetWindowLong Lib 'user32.dll' Alias 'GetWindowLongA' ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long) As Long
 
Private Declare Function SetWindowLong Lib 'user32.dll' Alias 'SetWindowLongA' ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
 
Private Declare Function FindWindow Lib 'user32.dll' Alias 'FindWindowA' ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
 
Private Declare Function GetSystemMenu Lib 'user32' _
   (ByVal hwnd As Long, _
   ByVal bRevert As Long) As Long
 
Private Declare Function DeleteMenu Lib 'user32' _
   (ByVal hMenu As Long, _
   ByVal nPosition As Long, _
   ByVal wFlags As Long) As Long
 
Private Declare Function DrawMenuBar Lib 'user32' (ByVal hwnd As Long) As Long
 
Private Const GWL_STYLE As Long = -16
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_SYSMENU As Long = &H80000
Private Const SC_CLOSE = &HF060
Private Const MF_BYCOMMAND = &H0
 
Private hForm As Long   ' << хэндл userform'ы
 
Private Sub CommandButton1_Click()
    Unload Me
End Sub
 
Private Sub UserForm_Initialize()
    hForm = FindWindow('ThunderDFrame', Me.Caption)
End Sub
 
Private Sub DisableXbutton(ByVal frmHwnd As Long)
  Dim hMenu As Long
  
  hMenu = GetSystemMenu(frmHwnd, 0&)
  If hMenu Then
    Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
    DrawMenuBar frmHwnd
  End If
End Sub
 
Private Sub RemoveFormCaption(ByVal frmHwnd As Long)
  Dim lStyle As Long
  
  lStyle = GetWindowLong(frmHwnd, GWL_STYLE)
  ' блокировка вывода строки заголовка:
  lStyle = lStyle Xor WS_CAPTION
  ' уберите комментарий, чтобы блокировать системное меню:
  lStyle = lStyle Xor WS_SYSMENU
  Call SetWindowLong(frmHwnd, GWL_STYLE, lStyle)
  DrawMenuBar hForm
End Sub
 
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        Label1.Caption = 'Левая мышь: блокируем крестик'
        DisableXbutton hForm
    Else
        Label1.Caption = 'Правая мышь: скрываем заголовок и сис. меню'
        RemoveFormCaption hForm
    End If
    DoEvents
    Me.Repaint
End Sub