Imports System.ComponentModel Imports DigitalData.GUIs.ClientSuite Public Class WorkflowItem Implements INotifyPropertyChanged Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged Private _state As String Public Property Title As String Public Property CreatedAt As DateTime Public Property Process As String Public Property StateImage As Image Public Property State As String Get Return _state End Get Set(value As String) _state = value Select Case value Case "Start" StateImage = My.Resources. Case "Not started" StateImage = My.Resources.ampel_gelb Case Else StateImage = Nothing End Select End Set End Property End Class