У всех ли есть поддержка этого шрифта ?

Private Sub UserControl_Initialize()
    'Стрелочки
    'шрифт Wingdings 3
    'tu -влево вправо
    'pq -вверх вниз
    Dim f, j$() 'Устанавливаем стрелочки на кнопочки
    j = Split("p q")
    For f = 0 To Scroll.UBound
        With Scroll(f).Font
            .Name = "Wingdings 3"
            .Size = 6
        End With
        Scroll(f).Caption = j(f)
    Next
 
    Set lab = Controls.Add("vb.label", "lab")
    lab.AutoSize = True
    Set gToolTip = New CTooltip
    '-----------------------------
    Picture1.BorderStyle = 0: Picture2.BorderStyle = 0
    tw.x = Screen.TwipsPerPixelX
    tw.y = Screen.TwipsPerPixelY
End Sub

Option Explicit
 
Private Declare Function DrawFrameControl Lib "user32" (ByVal hDC As Long, lpRect As Any, ByVal un1 As Long, ByVal un2 As Long) As Long
 
Private Const DFCS_MENUARROWDOWN = &H10
Private Const DFCS_MENUARROWUP = &H8
Private Const DFC_MENU = 2
Private Const DFCS_TRANSPARENT = &H800
 
Private Sub Form_Load()
    Dim RC(3) As Long
    AutoRedraw = True
    RC(2) = 32: RC(3) = 32
    DrawFrameControl Me.hDC, RC(0), DFC_MENU, DFCS_MENUARROWUP Or DFCS_TRANSPARENT
    RC(1) = 33: RC(3) = 64
    DrawFrameControl Me.hDC, RC(0), DFC_MENU, DFCS_MENUARROWDOWN Or DFCS_TRANSPARENT
End Sub

Option Explicit
Private Declare Function OpenThemeData Lib "uxtheme.dll" (ByVal hwnd As Long, ByVal pszClassList As Long) As Long
Private Declare Function CloseThemeData Lib "uxtheme.dll" (ByVal hTheme As Long) As Long
Private Declare Function DrawThemeBackground Lib "uxtheme.dll" (ByVal hTheme As Long, ByVal lhdc As Long, ByVal iPartId As Long, ByVal iStateId As Long, pRect As Any, pClipRect As Any) As Long
 
Private Sub Form_Load()
    Dim hTheme As Long, RC(3) As Long, x As Long, y As Long, w As Long
    
    AutoRedraw = True
    
    w = 64
    RC(3) = w
    For y = 1 To 26
        RC(0) = ((y - 1) And 1) * 10 * w: RC(2) = w
        hTheme = OpenThemeData(Me.hwnd, Choose(y, StrPtr("BUTTON"), _
                                                  StrPtr("COMBOBOX"), _
                                                  StrPtr("CONTROLPANEL"), _
                                                  StrPtr("DRAGDROP"), _
                                                  StrPtr("EXPLORERBAR"), _
                                                  StrPtr("FLYOUT"), _
                                                  StrPtr("GLOBALS"), _
                                                  StrPtr("HEADER"), _
                                                  StrPtr("LISTBOX"), _
                                                  StrPtr("LISTVIEW"), _
                                                  StrPtr("MENU"), _
                                                  StrPtr("MENUBAND"), _
                                                  StrPtr("NAVIGATION"), _
                                                  StrPtr("PAGE"), _
                                                  StrPtr("PROGRESS"), _
                                                  StrPtr("REBAR"), _
                                                  StrPtr("SCROLLBAR"), _
                                                  StrPtr("SEARCHEDITBOX"), _
                                                  StrPtr("SPIN"), _
                                                  StrPtr("STARTPANEL"), _
                                                  StrPtr("STATUS"), _
                                                  StrPtr("TAB"), _
                                                  StrPtr("TASKBAND"), _
                                                  StrPtr("TASKBAR"), _
                                                  StrPtr("TASKDIALOG"), StrPtr("WINDOW")))
        For x = 1 To 10
            
            RC(2) = RC(0) + w
            DrawThemeBackground hTheme, Me.hDC, x, 0, RC(0), ByVal 0&
            RC(0) = RC(0) + w
        Next
        
        CloseThemeData hTheme
        RC(1) = RC(1) + w * ((y - 1) And 1)
        RC(3) = RC(3) + w * ((y - 1) And 1)
    Next
End Sub