TrueType Font Widths

Hi, is there any way to get the following BMax example to work in B3D?

http://www.blitzbasic.com/Community/posts.php?topic=47573

my code is not working:

Graphics 640,480,0,2

bank = CreateBank( 256 * 3 * 4 )

hwnd = api_GetActiveWindow()
hdc = api_GetDC( hwnd )

font = LoadFont("Tahoma.ttf",20)
SetFont font

api_GetCharABCWidths( hdc, 0, 255, bank )

For i=0 To 255*3
Text x,y, PeekInt( bank, i)

x = x + 20: If x > 620 Then x = 0: y = y + 20
Next

WaitKey()
End



....my english is very bad, sorry for that....hope anybody can help - thanks.