Sub nccomment_MouseClicked (EventData As MouseEvent)
cnclist.Items.Clear
For i =0 To ncselectx.Items.Size-1
Dim p As AnchorPane
p.Initialize("")
p.LoadLayout("cnclisttime")
p.Style="-fx-background-color : rgb("& Rnd(100,150)&"," & Rnd(100,150)&"," & Rnd(100,150)& ")"
cncpgmtime.Text= ncselectx.Items.Get(i)
ncselectx.Tag=i ' text
cnctimetick.Tag=i ' slider
cnclist.Items.Add(p)
Next
End Sub
Sub cnctimetick_ValueChange (Value As Double)
Dim timesend As Slider=Sender
.... stuck here
End Sub