Изменить цвет стандартного заголовка формы

Dim nb As Boolean = False
 
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Close() ' закрытие формы
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Me.WindowState = FormWindowState.Minimized 'сворачивание формы
    End Sub
 
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If nb = False Then
            Me.WindowState = FormWindowState.Maximized 'принятие формой максимального размера
            nb = True
        ElseIf nb = True Then
            Me.WindowState = FormWindowState.Normal 'принятие формой  размера установленного в ее свойствах 
            nb = False
        End If
    End Sub

Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        Button4.Left = Me.Width - 75
        Button6.Left = Me.Width - 100
        Button7.Left = Me.Width - 50
    End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Me.WindowState = FormWindowState.Minimized 'сворачивание формы
    End Sub

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = FormBorderStyle.None
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub
End Class

<Flags> _
    Enum AnimateWindowFlags
        AW_HOR_POSITIVE = &H1
        AW_HOR_NEGATIVE = &H2
        AW_VER_POSITIVE = &H4
        AW_VER_NEGATIVE = &H8
        AW_CENTER = &H10
        AW_HIDE = &H10000
        AW_ACTIVATE = &H20000
        AW_SLIDE = &H40000
        AW_BLEND = &H80000
    End Enum
    'Const AW_HOR_POSITIVE = &H1 'Анимация окна слева направо.
    ''Этот флаг используется совместно с эффектами развёртывания и соскальзывания.
    'Const AW_HOR_NEGATIVE = &H2 'Анимация окна справа налево.
    ''Этот флаг используется совместно с эффектами развёртывания и соскальзывания.
    'Const AW_VER_POSITIVE = &H4 'Анимация окна сверху вниз.
    ''Этот флаг используется совместно с эффектами развёртывания и соскальзывания.
    'Const AW_VER_NEGATIVE = &H8 'Анимация окна снизу вверх.
    ''Этот флаг используется совместно с эффектами развёртывания и соскальзывания.
    'Const AW_CENTER = &H10 'Окно сворачивается внутрь себя если
    ''установлен флаг AW_HIDE, иначе разворачивается
    'Const AW_HIDE = &H10000 'Скрывает окно, по умолчанию окно появляется.
    'Const AW_ACTIVATE = &H20000 'Активизирует окно.
    'Const AW_SLIDE = &H40000 'Устанавливает эффект соскальзывания.
    ''По умолчанию эффект развёртывания.
    'Const AW_BLEND = &H80000 'Эффект постепенного появления.
    ''Применяется только к окнам верхнего уровня.
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Shared Function AnimateWindow(hWnd As IntPtr, time As Integer, flags As AnimateWindowFlags) As Boolean
    End Function

 AnimateWindow(Me.Handle, 100, AnimateWindowFlags.AW_CENTER Or AnimateWindowFlags.AW_HIDE) ' анимация окна при сворачивании
        Me.WindowState = FormWindowState.Minimized

    Private Sub GetHelpLite_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = FormBorderStyle.None
    End Sub

 Me.FormBorderStyle = FormBorderStyle.None

Public Class Form1
    <Flags>
    Enum AnimateWindowFlags
        AW_HOR_POSITIVE = &H1
        AW_HOR_NEGATIVE = &H2
        AW_VER_POSITIVE = &H4
        AW_VER_NEGATIVE = &H8
        AW_CENTER = &H10
        AW_HIDE = &H10000
        AW_ACTIVATE = &H20000
        AW_SLIDE = &H40000
        AW_BLEND = &H80000
    End Enum
 
    <System.Runtime.InteropServices.DllImport("user32.dll")>
    Shared Function AnimateWindow(hWnd As IntPtr, time As Integer, flags As AnimateWindowFlags) As Boolean
    End Function
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = FormBorderStyle.Sizable 'Вот как работает
        Me.FormBorderStyle = FormBorderStyle.None 'Не работает
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AnimateWindow(Me.Handle, 100, AnimateWindowFlags.AW_CENTER Or AnimateWindowFlags.AW_VER_POSITIVE) ' анимация окна при сворачивании
        Me.WindowState = FormWindowState.Minimized
    End Sub
End Class

AnimateWindow(Me.Handle, 100, AnimateWindowFlags.AW_VER_POSITIVE Or AnimateWindowFlags.AW_HIDE)