Public Class GridOverview
    Private _DataSource As List(Of WorkflowItem)

    Public Property DataSource As List(Of WorkflowItem)
        Get
            Return _DataSource
        End Get
        Set(value As List(Of WorkflowItem))
            _DataSource = value
            GridControl.DataSource = value

            If Not IsNothing(value) Then
                ApplyStyles()
            End If
        End Set
    End Property

    Private Sub ApplyStyles()
        With gvOverview.Columns.Item("StateImage")
            .VisibleIndex = 0
            .MaxWidth = 20
            .OptionsColumn.ShowCaption = False
        End With
        gvOverview.Columns.Item("Process").VisibleIndex = 1
        gvOverview.Columns.Item("State").Visible = False
    End Sub
End Class