Private Sub dgv_ColumnAdded(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.DataGridViewColumnEventArgs) _
    Handles dgv.ColumnAdded
 
        Static anz655, anz1150 As Boolean
 
        dgv = e.Column.DataGridView
        Dim c As Integer = dgv.Columns.Count
        If c < 655 Then Exit Sub
        If anz655 And c < 1150 Then Exit Sub
        If anz1150 Then Exit Sub
 
        Dim st, en As Integer
        en = dgv.Columns.Count - 1
        If anz655 Then st = 655
 
        For i As Integer = st To en
            dgv.Columns(i).FillWeight = 10
        Next i
 
        If Not anz655 Then
             anz655 = True 
        Else 
             anz1150 = True
	  end if
    End Sub