Office: Bitte um Erklärung was genau dieser Code macht

Hallo,

auf der Suche nach einer Möglichkeit die Command-Bars von User-Forms zu entfernen, habe ich im Internet den nachfolgenden 3-teiligen Code gefunden. (sprich Rahmen um das Fenster inkl. rotes X etc. wegmachen)

Dieser Code funktioniert bei mir problemlos, und da ich ohne Ende andere Probleme zu lösen hatte, habe ich mich erstmal nicht weiter dafür interessiert.

Jetzt habe ich die komplette Datei und den dazugehörigen Code aber soweit im Griff das ich mich auch um dieses Detail kümmern kann.
Denn bis auf diesen Code verstehe ich eigentlich jede einzelne Zeile meiner Datei und weiß was gerade passiert bzw. wie ich etwas ändern/anpassen kann.

Deshalb wäre ich Euch sehr verbunden wenn mir jemand erklären könnte was in diesem Code eigentlich genau passiert, und ob ich ihn überhaupt komplett brauche.

Code:

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
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 DrawMenuBar Lib "user32.dll" ( _
    ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
    ByVal hWnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByRef lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long

Private Const GC_CLASSNAMEMSEXCELFORM = "ThunderDFrame"
Private Const GWL_STYLE = -16
Private Const WS_CAPTION = &HC00000
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1

Private hWndForm As Long

Code:

Private Sub UserForm_Activate()
  hWndForm = FindWindow(GC_CLASSNAMEMSEXCELFORM, Me.Caption)
    If hWndForm <> 0 Then
      SetWindowLong hWndForm, GWL_STYLE, GetWindowLong(hWndForm, GWL_STYLE) And Not WS_CAPTION
      DrawMenuBar hWndForm
    End If
End Sub

Code:

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    If Button = 1 Then
      ReleaseCapture
      SendMessage hWndForm, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    End If
End Sub