Private Lstgroupsel as Listview
Private Wbvgroup as Webview
Private lstpicartistmed as List
Private Lbltxtgrup, Lbltxtsong as Label
For i=0 To lstartist.Size-1
Dim p As AnchorPane
p.Initialize("")
p.LoadLayout("lstlaygroup") 'Load the layout designed at Internal Designer
Lbltxtgrup.Text = "artist " & i
Lbltxtsong.Text = "song " & i
Wbvgroup.LoadUrl(lstpicartistmed.Get(i)) 'Load the Url at item i of the list lstpicartistmed
Wbvgroup.Style="-fx-effect: dropshadow(three-pass-box,rgba(0,0,0,0.8),15,.00,5,8);"
Lstgroupsel.Items.Add(p) 'Add the panel to the listview
Next