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

Формулировка задачи:

Шрифт

"Wingdings 3"

Перед тем как скомпилировать свой компонент я хотел бы задаться этим вопросом, и поинтерисоваться у народа мне нужно чтоб на кнопках были стрелочки .... фрагмент кода ...

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

ниже тэстовый проект для просмотра что и как...

Решение задачи: «У всех ли есть поддержка этого шрифта ?»

textual
                            Листинг программы 
                        

                            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
                        