Смена шрифта в заголовке окна

Option Explicit
'
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
'
Private Declare Function CreateFont Lib 'gdi32.dll' Alias 'CreateFontA' (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Private Declare Function MulDiv Lib 'kernel32' (ByVal nNumber As Long, ByVal nNumerator As Long, ByVal nDenominator As Long) As Long
Private Declare Function GetDeviceCaps Lib 'gdi32' (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function DeleteObject Lib 'gdi32.dll' (ByVal hObject As Long) As Long
Private Declare Function DrawText Lib 'user32.dll' Alias 'DrawTextA' (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, ByRef lpRect As RECT, ByVal wFormat As Long) As Long
Private Declare Function SelectObject Lib 'gdi32.dll' (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function GetWindowDC Lib 'user32' (ByVal hWnd As Long) As Long
Private Declare Function GetSystemMetrics Lib 'user32' (ByVal nIndex As Long) As Long
Private Declare Function SetRect Lib 'user32.dll' (ByRef lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetDC Lib 'user32' (ByVal hWnd As Long) As Long
Private Declare Function SetBkMode Lib 'gdi32' (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function SetTextColor Lib 'gdi32.dll' (ByVal hdc As Long, ByVal crColor As Long) As Long
'
Private Const SM_CYCAPTION = 4  ' Height of windows caption
Private Const SM_CXSIZE = 30    ' Width of title bar bitmaps
Private Const DT_LEFT As Long = &H0
Private Const FW_NORMAL = 400
Private Const LOGPIXELSY = 90
Private Const OUT_DEFAULT_PRECIS = 0
Private Const CLIP_DEFAULT_PRECIS = 0
Private Const DEFAULT_CHARSET = 1
Private Const PROOF_QUALITY = 2
Private Const DEFAULT_PITCH = 0
Private Const TRANSPARENT = 1
'
Private mDC As Long, hFont As Long
'
Private Sub Form_Load()
    ' hDC вместе с тайтл-баром:
    mDC = GetWindowDC(Me.hWnd)
    ' Будем использовать шрифт: Times New Roman, 11pt:
    hFont = CreateFont(-MulDiv(11, GetDeviceCaps(GetDC(0), LOGPIXELSY), 72), 0, 0, 0, FW_NORMAL, False, False, False, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, 'Times New Roman')
    SelectObject mDC, hFont
    ' Выводимый текст должен иметь прозрачный фон:
    SetBkMode mDC, TRANSPARENT
    ' Цвет шрифта пусть будет жёлтым:
    SetTextColor mDC, vbYellow
End Sub
'
Private Sub Form_Paint()
    ' Собственно перерисовка тайтл-бара:
    Call RedrawTitleBar('Просто какой-то текст в тайтл-баре')
End Sub
'
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    DeleteObject hFont
End Sub
'
Private Sub RedrawTitleBar(ByVal TbarText As String)
    Dim rct As RECT
    
    If Len(Me.Caption) > 0 Then
        ' 'Убиваем' заголовок формы, чтобы не мешал выводимому тексту:
        Me.Caption = ''
        ' Это неправильно, но быстро.
    End If
    
    SetRect rct, _
            GetSystemMetrics(SM_CXSIZE) + 6, _
            5, _
            Me.Width * Screen.TwipsPerPixelX, _
            GetSystemMetrics(SM_CYCAPTION)
    ' (константы 5 и 6 определил по