with this .AddColumn(this.ColumnCount + 1) .Columns[this.ColumnCount].Header1.Caption = goTranslator.Translate("Art") .Columns[this.ColumnCount].Header1.alignment = 2 .Columns[this.ColumnCount].Header1.ToolTipText = 'Art des Dokuments' .Columns[this.ColumnCount].ToolTipText = 'Art des Dokuments' .Columns[this.ColumnCount].Sparse = .f. .Columns[this.ColumnCount].Alignment = 2 .Columns[this.ColumnCount].Width = 30 .Columns[this.ColumnCount].inputmask= "!!!" * Excel .Columns[this.ColumnCount].NewObject("imgExcel", "GridImage", "images") .Columns[this.ColumnCount].imgExcel.Picture = "pictures\Excel.bmp" .Columns[this.ColumnCount].imgExcel.BackStyle = 0 * Word. .Columns[this.ColumnCount].NewObject("imgWord", "GridImage", "images") .Columns[this.ColumnCount].imgWord.Picture = "pictures\word.bmp" .Columns[this.ColumnCount].imgWord.BackStyle = 0 * PDF .Columns[this.ColumnCount].NewObject("imgPDF", "GridImage", "images") .Columns[this.ColumnCount].imgPDF.Picture = "pictures\PDF.bmp" .Columns[this.ColumnCount].imgPDF.BackStyle = 0 .Columns[this.ColumnCount].NewObject("imgMSG", "GridImage", "images") .Columns[this.ColumnCount].imgMSG.Picture = "pictures\mail216x16.bmp" .Columns[this.ColumnCount].imgMSG.BackStyle = 0 .Columns[this.ColumnCount].DynamicCurrentControl = "iif(vwDokumente2.dokArt = 'XLS', 'imgExcel', iif(vwDokumente2.dokArt='DOC', 'imgWord', iif(vwDokumente2.dokArt='PDF', 'imgPDF', iif(vwDokumente2.dokArt='MSG','imgMSG','Text1'))))" .Columns[this.ColumnCount].ControlSource = "dokArt" endwith