gt;Font to translate.&lt;/param&gt;
''' &lt;param name="hDC"&gt;Device context to get DPI information from.&lt;/param&gt;
''' &lt;param name="tLF"&gt;LOGFONT structure to populate.&lt;/param&gt;
Public Sub pOLEFontToLogFont(fntThis As StdFont, hdc As Long, tLF As LOGFONT)
Dim sFont As String
Dim iChar As Integer

   ' Convert an OLE StdFont to a LOGFONT structure:
   With tLF
       sFont = fntThis.Name
       ' There is a quicker way involving StrConv and CopyMemory, but
       ' this is simpler!:
       F