' Test whether a font name and size is supported' Returns True if the font is supported, False otherwise'' If the font is supported but the size is not, it returns the actual font size ' in the second argument' If the font isn't supported, it return the system font name and size in the ' two arguments.'' Example:' Dim fontName As String = "Times New Roman"' Dim fontSize As Single = 48' Debug.WriteLine(IsFontInstalled(fontName, fontSize))' Debug.WriteLine(fontName & " - " & fontSize)'' fontName = "Not a valid font, of course!"' Debug.WriteLine(IsFontInstalled(fontName, fontSize))' Debug.WriteLine(fontName & " - " & fontSize)Function IsFontInstalled(ByRef fontName As String, Optional ByRef fontSize As _ Single = 8) As Boolean Try Dim fnt As New Font(fontName, fontSize) IsFontInstalled = (fnt.FontFamily.Name = fontName) fontName = fnt.FontFamily.Name fontSize = fnt.Size Catch e As Exception Return False End TryEnd Function


GM Creates Open Source uProtocol and Invites Automakers to Adopt It: Revolutionizing Automotive Software Development.
General Motors (GM) recently announced its entry into the Eclipse Foundation. The Eclipse Foundation is a prominent open-source software foundation. In addition, GMC announced its contribution of “uProtocol” to facilitate