this is how i do it in winblitz3d. you shold be able to convert this easy.
kev
Function OpenFont(fontname$,width=12,height=8,bold=0,italic=0,underline=0) font = apiCreateFont(width,height,0,0,bold,underline,0,0,0,0,0,0,0,GRAB_StringAddr(fontname$)) Return font End Function Function Usefont(gadget,font) hdc = apiGetWindowDC(gadget) hfontprev = apiSelectObject(hdc,font) apiSendMessage gadget,WM_SETFONT,apiSelectObject(hdc,font),1 End Function
kev