'**************************************   Deklarationen
        Dim GridTextColumn As DataGridColumnStyle
        Dim GridPicColumn As DataGridColumnStyle
        Dim GridConditionStyle As DataGridColumnStyle
        Dim pcol As System.ComponentModel.PropertyDescriptorCollection = _
          frmStatus.BindingContext(loDataset_WatchReg, _
          "pxDataSetWatcher").GetItemProperties()
 
        ts1 = New DataGridTableStyle
        ts1.MappingName = "pxDataSetWatcher"
        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)
 
        GridConditionStyle = New DataGridPicStyle.DependCol(pcol("wat_run"))
        GridConditionStyle.MappingName = "wat_run"
        GridConditionStyle.Width = 1
        GridConditionStyle.Alignment = HorizontalAlignment.Center
        ts1.GridColumnStyles.Add(GridConditionStyle)
 
        GridPicColumn = New DataGridPicStyle.PaintCol(pcol("wat_run_pic"))
        GridPicColumn.MappingName = "wat_run_pic"
        GridPicColumn.HeaderText = "Status:"
        GridPicColumn.Width = 45
        ts1.GridColumnStyles.Add(GridPicColumn)
 
        GridTextColumn = New DataGridTextBoxColumn
        GridTextColumn.MappingName = "wat_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 - 677
        GridTextColumn.Alignment = HorizontalAlignment.Left
        ts1.GridColumnStyles.Add(GridTextColumn)
 
        GridTextColumn = New DataGridTextBoxColumn
        GridTextColumn.MappingName = "wat_ver"
        GridTextColumn.HeaderText = "Zu überwachendes Verzeichnis:"
        GridTextColumn.Width = 200
        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_run_akt"))
        GridConditionStyle.MappingName = "tim_run_akt"
        GridConditionStyle.Width = 1
        GridConditionStyle.Alignment = HorizontalAlignment.Center
        ts1.GridColumnStyles.Add(GridConditionStyle)
 
        GridPicColumn = New DataGridPicStyle.PaintCol(pcol("tim_run_akt_pic"))
        GridPicColumn.MappingName = "tim_run_akt_pic"
        GridPicColumn.HeaderText = "Timer:"
        GridPicColumn.Width = 42
        ts1.GridColumnStyles.Add(GridPicColumn)
 
        GridConditionStyle = New DataGridPicStyle.DependCol(pcol("wat_dea"))
        GridConditionStyle.MappingName = "wat_dea"
        GridConditionStyle.Width = 1
        GridConditionStyle.Alignment = HorizontalAlignment.Center
        ts1.GridColumnStyles.Add(GridConditionStyle)
 
        GridPicColumn = New DataGridPicStyle.PaintCol(pcol("wat_dea_pic"))
        GridPicColumn.MappingName = "wat_dea_pic"
        GridPicColumn.HeaderText = "Inaktiv:"
        GridPicColumn.Width = 45
        ts1.GridColumnStyles.Add(GridPicColumn)
 
        '**************************************   DatagridStyle anwenden
        frmStatus.dgFileWatcher.TableStyles.Add(ts1)
 
    End Function