システムにインストールされているフォント名の取得

VB.NETですが、システムにインストールされているフォント名を取得するために下記のコードを書きました。 Private Sub GetSystemFonts(ByRef SysFontString As String) Dim SystemFont As New System.Drawing.Text.InstalledFontCollection SysFontString = "" For Each sf As System.Drawing.FontFamily In SystemFont.Families If SysFontString = "" Then SysFontString = sf.Name Else SysFontString = SysFontString & "," & sf.Name End If Next End Sub しかし、このコードだとTrueTypeFontしか取れないようで、OutLineFontなどは取得できないようです。 フォントの種類に関わらず、インストールされている全てのフォント名を取得する方法はないでしょうか？ よろしくお願いします。