option explicit
dim retval as long
'Schriftarten install
Private Declare Function AddFontResource Lib "gdi32.dll" _
  Alias "AddFontResourceA" (ByVal lpFileName As String) _
  As Long
 
'Schriftarten deinstall
Private Declare Function RemoveFontResource Lib "gdi32.dll" Alias _
  "RemoveFontResourceA" (ByVal lpFileName As String) As Long
 
Private Sub Command1_Click()
   'Schriftart install
   Retval = AddFontResource(App.Path & "\Font.ttf")
End Sub
 
Private Sub Command2_Click()
   'Schriftarten deinstall
   Retval = RemoveFontResource(App.Path & "\Font.ttf")
End Sub