Private Shared Sub RegisterFont(ByVal contentFontName As String) Dim fontDestination = Path.Combine(GetFolderPath(SpecialFolder.Fonts), contentFontName) 'C:\Windows\Fonts 부분과 그 안에 폰트가 설치되어 있는지 확인하는 코드 If Not File.Exists(fontDestination) Then '해당 경로에 파일이 존재하지 않다면 File.Copy(Path.Combine(Directory.GetCurrentDirectory(), contentFontName), fontDestination) '파일을 복사해서 C:\Windows\Fonts 부분에 넣어준다. Dim fon..