cFontEnUso := _HMG_DefaultFontName
nFontSizeEnUso := _HMG_DefaultFontSize
nFontHandle := _SetFont (NIL, HMG_DefaultFontName, nFontSizeEnUso,.F.,.F.,.F.,.F.)
// Retorna el tamaño del texto en pixels
nTexWidth := GetTextWidth( NIL , "mi texto" , nFontHandle )
