How can I extract the data from this json?
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
Thank you
			
			
			
				B4J:
			
		
		
		Sub ParseJSON1(jsonstring As String)
    Dim parser As JSONParser
    parser.Initialize(jsonstring)
    Dim jRoot As Map = parser.NextObject
    Dim Minimo As String = jRoot.Get("Min")
    Dim Maximo As String = jRoot.Get("Max")
    Dim Value As String = jRoot.Get("Value")
    Dim ImageURL As String = jRoot.Get("ImageURL")
    Dim Text As String = jRoot.Get("Text")
    Dim id As Int = jRoot.Get("id")
    Dim Children As List = jRoot.Get("Children")
    For Each colChildren As Map In Children
        Dim Minimo As String = colChildren.Get("Min")
        Dim Maximo As String = colChildren.Get("Max")
        Dim Value As String = colChildren.Get("Value")
        Dim ImageURL As String = colChildren.Get("ImageURL")
        Dim Text As String = colChildren.Get("Text")
        Dim id As Int = colChildren.Get("id")
        Dim Children As List = colChildren.Get("Children")
        For Each colChildren As Map In Children
            Dim Minimo As String = colChildren.Get("Min")
            Dim Maximo As String = colChildren.Get("Max")
            Dim Value As String = colChildren.Get("Value")
            Dim ImageURL As String = colChildren.Get("ImageURL")
            Dim Text As String = colChildren.Get("Text")
            Dim id As Int = colChildren.Get("id")
            Dim Children As List = colChildren.Get("Children")
            For Each colChildren As Map In Children
                Dim Minimo As String = colChildren.Get("Min")
                Dim Maximo As String = colChildren.Get("Max")
                Dim Value As String = colChildren.Get("Value")
                Dim ImageURL As String = colChildren.Get("ImageURL")
                Dim Text As String = colChildren.Get("Text")
                Dim id As Int = colChildren.Get("id")
                Dim Children As List = colChildren.Get("Children")
                For Each colChildren As Map In Children
                    Dim Minimo As String = colChildren.Get("Min")
                    Dim Maximo As String = colChildren.Get("Max")
                    Dim Value As String = colChildren.Get("Value")
                    Dim ImageURL As String = colChildren.Get("ImageURL")
                    Dim Text As String = colChildren.Get("Text")
                    Dim id As Int = colChildren.Get("id")
                    Dim Children As List = colChildren.Get("Children")
                       For Each colChildren As Map In Children
                        Dim SensorId As String = colChildren.Get("SensorId")
                        Dim Types As String = colChildren.Get("Type")
                        Dim Minimo As String = colChildren.Get("Min")
                        Dim Maximo As String = colChildren.Get("Max")
                        Dim Value As String = colChildren.Get("Value")
                        Dim ImageURL As String = colChildren.Get("ImageURL")
                        Dim Text As String = colChildren.Get("Text")
                        Dim id As Int = colChildren.Get("id")
                        Dim Children As List = colChildren.Get("Children")
                    Next
                    
                Next
                
            Next
            
        Next
        
    Next
    
    End Sub 
				 
 
		 
 
		 
 
		 
						
					 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		