I am converting a huge project from VB6 to VB.NET 2003. I have a problem with textwidth. I think it has something to do with graphics.measurestring. Here is the code i am having trouble with.

If Frm_DocumentSelection(Trim(aMemName)) > lSplit Then
SplitStrByTextWidth(Frm_DocumentSelection.DefInstance,aMemName, aSplit, lAddress)
For i = 0 To lLinesRemain
If Len(lAddress(i)) > 0 Then
Temp = Temp & lAddress(i) & vbCr & vbLf
lLinesRemain = lLinesRemain - 1
lAddress(i) = ""
End If
Next i
Else
Temp = aMemName & vbCr & IIf(Entity.Jurisdiction <> "IOM", vbLf, "")
lLinesRemain = lLinesRemain - 1
End If

Can anyone shed somelight on this?