Public Class Main
    Dim MyFont As New CustomFont(My.Resources.kakakaka)
 
    Private Sub Main_Disposed(sender As Object, e As System.EventArgs) Handles Me.Disposed
        MyFont.Dispose()
    End Sub
 
    Private Sub Main_Load(sender As System.Object, e As System.EventArgs) Handles Me.Load
        Me.Label1.Font = New Font(MyFont.Font, 12.0!)
    End Sub
End Class