HFONT CreateFont(
  int nHeight,               // height of font
  int nWidth,                // average character width
  int nEscapement,           // angle of escapement
  int nOrientation,          // base-line orientation angle
  int fnWeight,              // font weight
  DWORD fdwItalic,           // italic attribute option
  DWORD fdwUnderline,        // underline attribute option
  DWORD fdwStrikeOut,        // strikeout attribute option
  DWORD fdwCharSet,          // character set identifier
  DWORD fdwOutputPrecision,  // output precision
  DWORD fdwClipPrecision,    // clipping precision
  DWORD fdwQuality,          // output quality
  DWORD fdwPitchAndFamily,   // pitch and family
  LPCTSTR lpszFace           // typeface name
);
 

 
DECLARE INTEGER CreateFont IN gdi32;
    INTEGER nHeight,;
    INTEGER nWidth,;
    INTEGER nEscapement,;
    INTEGER nOrientation,;
    INTEGER fnWeight,;
    INTEGER fdwItalic,;
    INTEGER fdwUnderline,;
    INTEGER fdwStrikeOut,;
    INTEGER fdwCharSet,;
    INTEGER fdwOutputPrecision,;
    INTEGER fdwClipPrecision,;
    INTEGER fdwQuality,;
    INTEGER fdwPitchAndFamily,;
    STRING  lpszFace