'**************************************   Deklarationen
        Dim GridTextColumn As DataGridColumnStyle
        Dim GridPicColumn As DataGridColumnStyle
        Dim GridConditionStyle As DataGridColumnStyle
        Dim pcol As System.ComponentModel.PropertyDescriptorCollection = _
          frmStatus.BindingContext(loDataset_ProgReg, _
          "pxDataSetTimer").GetItemProperties()
 
        ts1 = New DataGridTableStyle
        ts1.MappingName = "pxDataSetTimer"
        ts1.SelectionBackColor = System.Drawing.Color.LightSteelBlue
        ts1.RowHeadersVisible = True
 
        GridTextColumn = New DataGridTextBoxColumn
        GridTextColumn.MappingName = "ID"
        GridTextColumn.HeaderText = "Nr.:"
        GridTextColumn.Width = 20
        GridTextColumn.Alignment = HorizontalAlignment.Left
        ts1.GridColumnStyles.Add(GridTextColumn)
 
        GridTextColumn = New DataGridTextBoxColumn
        GridTextColumn.MappingName = "tim_nam"
        GridTextColumn.HeaderText = "Definitionsname:"
        GridTextColumn.Width = 160
        GridTextColumn.Alignment = HorizontalAlignment.Left
        ts1.GridColumnStyles.Add(GridTextColumn)
 
        GridTextColumn = New DataGridTextBoxColumn
        GridTextColumn.MappingName = "sta_txt"
        GridTextColumn.HeaderText = "Statusmeldung:"
        GridTextColumn.Width = frmStatus.Size.Width - 498
        GridTextColumn.Alignment = HorizontalAlignment.Left
        ts1.GridColumnStyles.Add(GridTextColumn)
 
        GridTextColumn = New DataGridTextBoxColumn
        GridTextColumn.MappingName = "zyk_int"
        GridTextColumn.HeaderText = "Intervall:"
        GridTextColumn.Width = 50
        GridTextColumn.Alignment = HorizontalAlignment.Left
        ts1.GridColumnStyles.Add(GridTextColumn)
 
       GridTextColumn = New DataGridTextBoxColumn
        GridTextColumn.MappingName = "zyk_art"
        GridTextColumn.HeaderText = "Zyklus:"
        GridTextColumn.Width = 60
        GridTextColumn.Alignment = HorizontalAlignment.Left
        ts1.GridColumnStyles.Add(GridTextColumn)
 
        GridTextColumn = New DataGridTextBoxColumn
        GridTextColumn.MappingName = "nex_zyk"
        GridTextColumn.HeaderText = "Nächster Zyklus:"
        GridTextColumn.Width = 110
        GridTextColumn.Alignment = HorizontalAlignment.Left
        ts1.GridColumnStyles.Add(GridTextColumn)
 
        GridConditionStyle = New DataGridPicStyle.DependCol(pcol("tim_dea"))
        GridConditionStyle.MappingName = "tim_dea"
        GridConditionStyle.Width = 1
        GridConditionStyle.Alignment = HorizontalAlignment.Center
 
        ts1.GridColumnStyles.Add(GridConditionStyle)
 
        GridPicColumn = New DataGridPicStyle.PaintCol(pcol("tim_dea_pic"))
        GridPicColumn.MappingName = "tim_dea_pic"
        GridPicColumn.HeaderText = "Inaktiv:"
        GridPicColumn.Width = 45
        ts1.GridColumnStyles.Add(GridPicColumn)
 
        '**************************************   DatagridStyle anwenden
        frmStatus.dgTimer.TableStyles.Add(ts1)