Imports Newtonsoft.Json Public Class Category Public Property Key As String Public Property Text As String Public Property Color As Color Public Property Exclude As Boolean Public Sub New() End Sub Public Sub New(Key As String, Text As String, Color As Color) Me.Key = Key Me.Text = Text Me.Color = Color End Sub End Class