CommoneDialog

it is not that easy.
if you just want to display the name of the available fonts in a listBox, you can use:

Private Sub Form_Load()
Dim k As Long
For k = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(k)
Next
End Sub

Marco