x paramets TextOut function

As I can calculate the value of parameter x of function

TextOut()

if I cannot use the functions :

CreateFont

GetTextExtend ?

Thanks

I need to calculate the values of parametro x of the TextOut() function to carry out an exit of type:

Article Description Quantity Price Import

and as I am developing in Visual RPG language (type Visual BASIC) I cannot use the functions:

CreateFont()
GetTextExtend()

As I can calculate this parameter?

Thanks

Ante todo perdón por mi anterior inglés.Soy española.

El problema que tengo , es que desarrollo en un lenguaje parecido a Visual Basic ,llamado Visual RPG , y con él no puedo utilizar las funciones:

CreateFont()
GetTextExtend()

y necesito saber como calcular los valores de los parámetros x e y de la función TextOut() para establecer correctamente las columnas de una salida de tipo :

Articulo Descripción Cantidad Precio Importe

dejando un espacio en blanco entre columnas y en función del tamaño de fuente elegido , ya que me encuentro que en lugar de dejar un espacio en blanco en la salida , para algunas columnas me aparecen más de uno.

Gracias