' Exempel
CmbFontChange.Clear
Dim hDC As Long
hDC = GetDC(CmbFontChange.hwnd)
EnumFontFamilies hDC, vbNullString, AddressOf EnumFontFamDisplayProc, CmbFontChange
ReleaseDC CmbFontChange.hwnd, hDC
' Sätt en default font
CmbFontChange.Text = "Tahoma"