create text image...

[chenko]

Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
 
Public Sub Text2Picture(ByVal sString As String, ByVal PicBox As PictureBox, Optional ByVal posX As Long = 0, Optional ByVal posY As Long = 0)
    TextOut(PicBox.hdc, posX, posY, sString, Len(sString))
End Sub

Im using this code to create an text image from a string... my question is that i would like to do the same, but, in a particular font? is this possible? i would like to also use fonts that are not installed on the system using the .ttf files i have



cheers
si