会VB的大虾请进 帮忙看一段程序 (50分)

有一段代码：
Const MAX_BUFSIZE = 21 * 1024
...
DLL Name : fnthex32.dll
Function : GetFontHex
Purpose : get bitmap in hex code of specific out string and font
参变数:
1) LPSTR outStr, output string
2) LPSTR lfFaceName, Windows font name
3) short int lfOrientation, clock-wish Orientation: 0,90,180,270
4) short int lfHeight, font height
5) short int lfWidth, font width, always set to 0
6) short int lfBold, bold font style (1 or 0)
7) short int lfItalic, italic font style (1 or 0)
8) char far *hexBuf buffer to receive hex codes,
size must set to 21K.
...
cBuf = String(MAX_BUFSIZE, 0)
...
GETFONTHEX(outStr$, fontName$, 0, FHEIGHT%, 0, fBold%, 0, cBuf)
调用DLL中的GETFONTHEX函数，在DELPHI中如何实现啊？(第8个参数)

procedure GETFONTHEX;
external 'fnthex32.dll' name 'GetFontHex';

我不懂VB，但我也进来了！！！

接受答案了.