(VB .Net): Using Local Font Files

Imports System.Drawing.Text Public Class Form1 Dim Collection As New PrivateFontCollection Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load For Each File As String In IO.Directory.GetFiles(".\Fonts", "*.ttf") Collection.AddFontFile(File) Next Me.Font = New Font(Collection.Families(0), 12, FontStyle.Bold) Me.Label2.Font = New Font(Collection.Families(1), 12, FontStyle.Bold) End Sub End Class