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