Private Sub FRM_DLG_RECHNUNG_NEU_KFZ_Load(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles MyBase.Load
...
prepare_dgv()
...
End Sub
 
Private Sub prepare_dgv()
 
        With dgv_Artikel
            .ColumnCount = 6
 
            .Columns(0).Name = "MENGE"
            .Columns(0).HeaderText = "Menge"
            .Columns(0).MinimumWidth = 25
            .Columns(0).ReadOnly = False
 
            .Columns(1).Name = "EINHEIT"
            .Columns(1).HeaderText = "Einheit"
            .Columns(1).MinimumWidth = 25
            .Columns(1).ReadOnly = True
 
            .Columns(2).Name = "RTF"
            .Columns(2).HeaderText = "RTF"
            .Columns(2).Visible = False
 
            .Columns(3).Name = "TXT"
            .Columns(3).HeaderText = "Artikelbeschreibung"
            .Columns(3).MinimumWidth = 390
            .Columns(3).DefaultCellStyle.WrapMode = DataGridViewTriState.True
            .Columns(3).ReadOnly = True
 
            .Columns(4).Name = "VKNETTO_EINZEL"
            .Columns(4).HeaderText = "Einzel"
            .Columns(4).MinimumWidth = 50
            .Columns(4).DefaultCellStyle.Format = "c"
            .Columns(4).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.TopRight
            .Columns(4).ReadOnly = True
 
            .Columns(5).Name = "VKNETTO_GESAMT"
            .Columns(5).HeaderText = "Gesamt"
            .Columns(5).MinimumWidth = 50
            .Columns(5).DefaultCellStyle.Format = "c"
            .Columns(5).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.TopRight
            .Columns(5).ReadOnly = True
 
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
            .AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
            .MultiSelect = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .AllowUserToResizeRows = False
            .RowHeadersVisible = False
            .ColumnHeadersVisible = True
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
 
 
        End With
End Sub

MS Visual Studio 2010 Prof.
MS Windows 7 Ultimate 64-bit
INTEL QuadCore Q6600 @2,40 GHz / 8GB RAM