German wetter api von visual basic in b4a?

Sub Parser_StartElement(uri As String, Name As String, Attributes As Attributes)
      If Name = "kanal" Then
            strKanal  = Attributes.GetValue2("", "name")
            strKanalNr  = Attributes.GetValue2("", "kanalnr")
            lstDataHeute.AddSingleLine2(strKanal,strKanalNr)
    End If
End Sub

<xml_api_reply version="1">
−
<weather module_id="0" tab_id="0" mobile_row="0" mobile_zipped="1" row="0" section="0">
−
<forecast_information>
<city data="Munich, Bavaria"/>
<postal_code data="muenchen"/>
<latitude_e6 data=""/>
<longitude_e6 data=""/>
<forecast_date data="2012-02-20"/>
<current_date_time data="1970-01-01 00:00:00 +0000"/>
<unit_system data="SI"/>
</forecast_information>
−
<current_conditions>
<condition data="Teils bewölkt"/>
<temp_f data="34"/>
<temp_c data="1"/>
<humidity data="Feuchtigkeit: 65 %"/>
<icon data="/ig/images/weather/partly_cloudy.gif"/>
<wind_condition data="Wind: S mit Windgeschwindigkeiten von 8 km/h"/>
</current_conditions>
−
<forecast_conditions>
<day_of_week data="Mo."/>
<low data="-8"/>
<high data="3"/>
<icon data="/ig/images/weather/mostly_sunny.gif"/>
<condition data="Teils sonnig"/>
</forecast_conditions>
−
<forecast_conditions>
<day_of_week data="Di."/>
<low data="-4"/>
<high data="2"/>
<icon data="/ig/images/weather/sunny.gif"/>
<condition data="Klar"/>
</forecast_conditions>
−
<forecast_conditions>
<day_of_week data="Mi."/>
<low data="-4"/>
<high data="6"/>
<icon data="/ig/images/weather/sunny.gif"/>
<condition data="Klar"/>
</forecast_conditions>
−
<forecast_conditions>
<day_of_week data="Do."/>
<low data="4"/>
<high data="5"/>
<icon data="/ig/images/weather/chance_of_rain.gif"/>
<condition data="Vereinzelt Regen"/>
</forecast_conditions>
</weather>
</xml_api_reply>

If parser.Parents.IndexOf("forecast_conditions") < -1 Then
      If Name="day_of_week" Then
      conditionaktuellertag = Attributes.GetValue2("","data")
      label6.text=conditionaktuellertag
      End If

<forecast_conditions>
<day_of_week data="Mi."/>
<low data="3"/>
<high data="10"/>
<icon data="/ig/images/weather/chance_of_rain.gif"/>
<condition data="Vereinzelt Regen"/>
</forecast_conditions>
−
<forecast_conditions>
<day_of_week data="Do."/>
<low data="1"/>
<high data="10"/>
<icon data="/ig/images/weather/cloudy.gif"/>
<condition data="Bewölkt"/>
</forecast_conditions>
−
<forecast_conditions>
<day_of_week data="Fr."/>
<low data="4"/>
<high data="11"/>
<icon data="/ig/images/weather/mostly_sunny.gif"/>
<condition data="Teils sonnig"/>
</forecast_conditions>
−
<forecast_conditions>
<day_of_week data="Sa."/>
<low data="-2"/>
<high data="7"/>
<icon data="/ig/images/weather/chance_of_rain.gif"/>
<condition data="Vereinzelt Regen"/>
</forecast_conditions>

dim inctn as int

Sub Parser_startElement (uri As String, Name As String, Attributes As Attributes)
label1.Visible=True
intcnt = intcnt + 1
alist.Initialize
   If parser.Parents.IndexOf("current_conditions") > -1 Then
      If Name = "condition" Then
         Title = Attributes.GetValue2("","data")
         label1.Text=Title
         alist.Add(Title)
      Else If Name = "temp_c" Then
         condition = Attributes.GetValue2("","data")
         label2.Text=condition & "C°"
         alist.Add(condition)
      Else If Name = "wind_condition" Then
         wind = Attributes.GetValue2("","data")
         label3.Text=wind
         Else If Name="humidity" Then
         luftfeucht=Attributes.GetValue2("","data")
         label4.text= luftfeucht
         alist.Add(luftfeucht)
      End If

If parser.Parents.IndexOf("forecast_conditions") > -1 Then
      If Name="day_of_week" and intcnt=12 Then
      conditionaktuellertag = Attributes.GetValue2("","data")
      alist.add(canditionaktuellertag)
      label6.Text=alist.get(12)
      End If
      End If

If intCnt = 12 Then
   If Name = "condition" Then
              condition  = Attributes.GetValue2("", "data")
      Label2.Text = condition
   End If   
   
   
   If Name = "temp_c" Then
           temp_c  = Attributes.GetValue2("", "data")
      Label3.Text = temp_c
   End If

End If      

If intCnt = 16 Then   
   If Name = "icon" Then
               icon  = Attributes.GetValue2("", "data")
      icon = icon.Replace(".gif",".png")

      laenge = st.Len(icon)
      laenge = laenge - 11
      bild = st.Mid(icon,12,laenge)
      
      ImageView5.Bitmap=LoadBitmap(File.DirAssets,bild)

   End If   
End If      

If intCnt = 19 Then         
   If Name = "day_of_week" Then
      day_of_week  = Attributes.GetValue2("", "data")
      Label4.Text = day_of_week & " " & datum
   End If
End If      

If intCnt = 20 Then         
   If Name = "low" Then
             low = Attributes.GetValue2("", "data")
      Label6.Text = low
      Label8.Text = "T:"
   End If
End If

If intCnt = 21 Then      
   If Name = "high" Then
           high = Attributes.GetValue2("", "data")
      Label5.Text = high
      Label7.Text = "H:"
   End If
End If

If intCnt = 25 Then         
   tag_neu =DateTime.getdayofmonth(morgen)
   monat_neu = DateTime.GetMonth(morgen)
   jahr_neu = DateTime.GetYear(morgen)

   If Name = "day_of_week" Then
      day_of_week  = Attributes.GetValue2("", "data")
      Label12.Text = day_of_week & " " & tag_neu & "." & monat_neu & "." & jahr_neu
   End If
End If   
   
If intCnt = 27 Then      

   If Name = "high" Then
      high = Attributes.GetValue2("", "data")
      Label15.Text = high & " / " & low
   End If
End If

If intCnt = 28 Then   
   If Name = "icon" Then
               icon  = Attributes.GetValue2("", "data")
      icon = icon.Replace(".gif",".png")
         
      laenge = st.Len(icon)
            
      laenge = laenge - 11
      bild = st.Mid(icon,12,laenge)
            
      ImageView2.Bitmap=LoadBitmap(File.DirAssets,bild)

   End If   
End If