Dim StatusImage = New System.Windows.Forms.DataGridViewImageColumn
          With StatusImage
            .HeaderText = ""
            .Name = "StatusImage"
            .ReadOnly = True
            .Visible = True
            .ImageLayout = DataGridViewImageCellLayout.Normal
            .DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
            .HeaderCell.Style.Alignment = _
              DataGridViewContentAlignment.MiddleCenter
            .ToolTipText = "Status"
          End With

      bsDaten = New BindingSource
      With bsDaten
        .DataMember = "Artikel"
        .DataSource = dsDatenPool
      End With
 
      dgvDaten.DataSource = bsDaten

        For Each row As DataGridViewRow In dgvDaten.Rows
          If row.Cells("Status").Value = "A" Then
            row.Cells("StatusImage").Value = _
              Global.MyTest.My.Resources.Resources.Image_Aktiv
            row.Cells("StatusImage").ToolTipText = "Aktiv"
          ElseIf ....
          End If
        Next