Dim job As HttpJob
job.Initialize("",Me)
job.Username=Main.api_user
job.Password = Main.api_pw
job.Download($"${Main.server}/api/categories$)
Wait For (job) jobDone(job As HttpJob)
If job.Success Then
Dim parser As JSONParser
parser.Initialize(job.GetString)
Dim root As List = parser.NextArray
For Each colroot As Map In root
Dim id As Int = colroot.Get("id")
Dim name As String = colroot.Get("name")
Dim parent_id As Int = colroot.Get("id")
'??? here add the element in Treeview ???
Next
Else
Log("No Server connection!")
End If
job.Release