Debug.Print("Start:" & DateTime.Now.ToString)
 
      Dim strSpaltenwerte() As String = XYZ.Split(";"c)
 
      For Each i As String In strSpaltenwerte
        Dim strWerte() As String = i.Split(":"c)
        If dgvDaten.Columns(strWerte(0)) Is Nothing Then Continue For 
        If strWerte(1) > dgvDaten.ColumnCount - 1 Then Continue For
        With dgvDaten.Columns(strWerte(0))
          .DisplayIndex = strWerte(1)
          If .AutoSizeMode = DataGridViewAutoSizeColumnMode.NotSet OrElse _
             .AutoSizeMode = DataGridViewAutoSizeColumnMode.None Then
            .Width = strWerte(2)
          End If
        End With
     Next i
 
     Debug.Print("Ende:" & DateTime.Now.ToString)

    dgv.Font = New Font("Arial", 10)
    Using g As Graphics = dgv.CreateGraphics
        g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
 
        For c As Integer = 0 To dgv.Columns.Count - 1
 
           Dim sz As SizeF, maxwidth As Integer, vl As Object, content As String
           Dim fo As Font = dgv.Columns(c).DefaultCellStyle.Font
           If fo Is Nothing Then fo = dgv.Font
           maxwidth = 10
 
           For r As Integer = dgv.Rows.Count - 1 To 0 Step -1
               vl = dgv.Rows(r).Cells(c).Value
               If vl IsNot Nothing Then
                  content = vl.ToString & ".."
                  sz = g.MeasureString(content, fo)
                  maxwidth = CInt(Math.Max(sz.Width, maxwidth))
               End If
           Next r
           dgv.Columns(c).Width = maxwidth
        Next c
    End Using

  If .AutoSizeMode = DataGridViewAutoSizeColumnMode.NotSet OrElse _
             .AutoSizeMode = DataGridViewAutoSizeColumnMode.None Then
            .Width = strWerte(2)

dgvDaten.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCellsExceptHeaders

 
     dgv.AutoSizeRowsMode = _
     DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders

    Private Sub dgv_EditingControlShowing(sender As Object, _
        e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) _
        Handles dgv.EditingControlShowing
 
        If TypeOf e.Control Is TextBox AndAlso _
            e.CellStyle.WrapMode = DataGridViewTriState.True Then
 
            Dim textBox As TextBox = DirectCast(e.Control, TextBox)
            textBox.ScrollBars = ScrollBars.Both
        End If
 
    End Sub