B4J Question Color Picker Event is fired in an endless Loop

Dim addnode As Node
   
    If typ = "color" Then
       Dim cp As ColorPicker
       cp.Initialize("color_picker")
       cp.SelectedColor = value
       cp.Tag = setid
       addnode = cp
    End If
    If typ = "check" Then
       Dim cb As CheckBox
       cb.Initialize("checkbox")
       cb.Checked = value
       cb.Tag = setid
       addnode = cb
    End If
   
    Dim tit As Label
    tit.Initialize("tit")
    tit.Text = title
   
    Dim pnl_split As Pane
    pnl_split.Initialize("splitter")
    CSSUtils.SetBackgroundColor(pnl_split,fx.Colors.LightGray)
   
    parent.AddNode(tit,4dip,ynow,parent.PrefWidth/2-4dip,30dip)
    parent.AddNode(addnode,parent.PrefWidth/2 + 10dip,ynow+2dip,parent.PrefWidth/2 -20dip,26dip)
    parent.AddNode(pnl_split,0,ynow+32dip,parent.PrefWidth,1dip)