Public Function FontExists(FontName As String) As Boolean
Dim oFont As New StdFont
Dim bAns As Boolean
oFont.Name = FontName
bAns = StrComp(FontName, oFont.Name, vbTextCompare) = 0
FontExists = bAns
End Function
Private Sub Form_Load()
MsgBox FontExists(“ARIAL”)
End Sub
No related posts.
Related posts brought to you by Yet Another Related Posts Plugin.
