Private Sub plugins_ValueChanged (Value As Object)
Dim cb As ComboBox = Sender
If cb.SelectedIndex = 0 Then Return
Dim lb As Label = Value
Dim shl As Shell
Dim m As Map = lb.Tag
shl.Initialize("shl", "java", Array As String("-cp", m.GetValueAt(2), "b4j.plugins.ivanomonti.main", "xxxxx", File.Combine(File.DirApp,"Lavagna.sqlite"), Main.idlogin) )
shl.WorkingDirectory = m.GetValueAt(3)
shl.Run(10000)
End Sub