[2008][RESOLVED] Remove text longer then ... px

[Mindstorms]

Hello,

I'm developing a word-teaching program. When choosen, it shows wich chapters you're busy with. But if they get too long for the form, I want to change the last 3 characters shown on the form to be "...".
Then it would be "Chapter 1, 2, 3, ..." instead of "Chapter 1, 2, 3, 4, 5, 6" from wich the half isn't visible anymore.

I've tried to calculate on the textlength, but since not every character equals in width, this doesn't work properly. My calculations take place in a function wich multiple forms use.

If sender = "frmFout" Then
     If tekst.Length > 31 Then tekst = tekst.Remove(31, tekst.Length - 31) & "..."
ElseIf sender = "frmOverhoor" Then
     If tekst.Length > 18 Then tekst = tekst.Remove(18, tekst.Length - 18) & "..."
ElseIf sender = "Print" Then
     If tekst.Length > 57 Then tekst = tekst.Remove(57, tekst.Length - 57) & "..."
End If

How can I do this on a different way and make it work properly?

With kind regards,

Thomas