求助：获取字体名称与字体文件名

求助：获取字体名称与字体文件名
如下图：
获取字体名称用下列代码：
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount
List1.AddItem Screen.Fonts(i)
Next
End Sub
那么，如何用代码获取字体名称对应的文件名呢？