With Me.dgv_STO.Columns("Name ")
            .DisplayIndex = 1
            .HeaderText = "Ein ausführlicher Name"
            .Resizable = DataGridViewTriState.False
            .Width = 500
            ' Und noch mehr!
        End With
 
        Me.dgv_STO.Columns("Stazus").Visible = False
 
        With Me.dgv_STO.Columns("ICON")
            .DisplayIndex = 0
            .HeaderText = "Status"
            .Resizable = DataGridViewTriState.False
            .Width = 200
            ' Und noch mehr!
        End With

Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles _
  DataGridView1.RowsAdded
        Dim l_Row As DataGridViewRow            ' Temporäre Datenreihe 
 
     Try
 
            ' Schleife für jede der hinzugefügeten Zeilen
            For i As Integer = 0 To e.RowCount - 1
 
                ' Objekt der Reihe ermitteln
                l_Row = Me.DataGridView1.Rows(e.RowIndex + i)
 
                ' Jetzt dein Icon hinzufügen
                l_Row.Cells("ICON").Value  = Me.m_DeinIconArray(CType( _
                  l_Row.Cells("Status").Value, Integer))
 
            Next
        Catch ex As Exception
            ' Fehler auswerten bitte
        End Try
End Sub