Dim fnNormal As New Font("Verdana", 11, FontStyle.Regular)
Dim Sf As New StringFormat(StringFormatFlags.NoClip)
Dim rec As New RectangleF(snXPos, snYPos, Sb.Width, fnNormal.GetHeight(g) * 10)
....
g.DrawString(feld.Text, fnNormal, Brushes.Black, rec, Sf)