'宣言
 
Public Shared Function CreateFont( _
   ByVal nHeight As Integer, _
   ByVal nWidth As Integer, _
   ByVal nEscapement As Integer, _
   ByVal nOrientation As Integer, _
   ByVal fnWeight As Integer, _
   ByVal fdwItalic As Integer, _
   ByVal fdwUnderline As Integer, _
   ByVal fdwStrikeOut As Integer, _
   ByVal fdwCharSet As Integer, _
   ByVal fdwOutputPrecision As Integer, _
   ByVal fdwClipPrecision As Integer, _
   ByVal fdwQuality As Integer, _
   ByVal fdwPitchAndFamily As Integer, _
   ByVal lpszFace As String _
) As IntPtr