Wrap text

Hi there,

I got a small problem with The TextWidth function.
I Use it to wrap text if it doesn't fit in the area i wan't it in...

VB Code:

If TextWidth(strMyVar) > UserControl.ScaleWidth Then
        Do Until TextWidth(strMyVar) < (UserControl.ScaleWidth)
            x = Val(x + 2)
            strMyVar = Left(strMyVar, Len(strMyVar) - x)
        Loop
        strMyVar = strMyVar & "..."
    End If

This works fine with plain text, but how can i do it with bold text? coz that work...

Anybody who can help me out? or maby a better way to do it? ;)

phroze