Public Function GetMaxChars(ByVal ctl As control, ByVal f As Font) As Integer
        Dim s As String = ""
 
        Dim g As Graphics = ctl.CreateGraphics
        Do Until g.MeasureString(s, f).Width >= ctl.Width
            s &= "w".ToUpper
        Loop
 
        Return s.Length
 
    End Function

Gruss Caddy