Imports System.Drawing Imports System.Drawing.Text Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'PrivateFontCollectionオブジェクトを作成する Dim fontCol As New System.Drawing.Text.PrivateFontCollection() fontCol.AddFontFile("C:\Users\Y2\AppData\Local\Microsoft\Windows\Fonts\ipamjm.ttf") 'https://dobon.net/vb/dotnet/graphics/privatefontcollection.html 'PrivateFontCollectionに追加されているフォントの名前を列挙する For Each ff As System.Drawing.FontFamily In fontCol.Families ListBox1.Items.Add(ff.Name) 'https://www.adonetvb.com/DotNet/refItemsAdd.html Next TextBox1.Text = ListBox1.Items(0) 'https://turtle-engineers.com/vb-listbox-count/ End Sub End Class