如何将系统字体导入ComboOBox中？

[game_over]

RT
各位高手
帮帮忙吧

[ssxssxssx]

这分我要啦，嘿嘿
Private Sub GetListOfFonts()
Try
Dim ifc As New InstalledFontCollection
With cboFontNames
.DataSource = ifc.Families
.DisplayMember = "Name"
End With
Catch ex As Exception
End Try
End Sub

[pa66]

可是不能返回中文啊!