Agregar un Label1 y modificar la ruta y el nombre de la Fuente
Código:Option Explicit Private Declare Function AddFontResource Lib "gdi32" _ Alias "AddFontResourceA" (ByVal lpFileName As _ String) As Long Private Declare Function RemoveFontResource Lib "gdi32" _ Alias "RemoveFontResourceA" (ByVal lpFileName As _ String) As Long Dim FontExist As Boolean Dim FontTempLoaded As Boolean Private Sub Form_Load() If IsFont("Almanac MT") Then FontExist = True Else Dim lngRet As Long lngRet = AddFontResource(App.Path & "\almanac.ttf") If lngRet > 0 Then FontTempLoaded = True Else Label1.Visible = False End If End If 'la nueva fuente With Label1 .Font = "Almanac MT" .FontBold = True .FontSize = 25 End With End Sub Function IsFont(sF As String) As Boolean Dim i As Integer Screen.MousePointer = vbHourglass For i = 0 To Screen.FontCount - 1 If UCase(sF) = UCase(Screen.Fonts(i)) Then IsFont = True Exit For Else IsFont = False End If Next i Screen.MousePointer = vbNormal End Function Private Sub Form_Unload(Cancel As Integer) Dim lngRet As Long If FontTempLoaded Then lngRet = RemoveFontResource(App.Path & "\almanac.ttf") End If End Sub 'Private Sub Command1_Click() 'MsgBox IsFont("Almanac MT") 'End Sub