EndUrl = 1
                PicZaehler = 1
                Do While InStr(EndUrl, html$, "<img") > 0
                DoEvents
                    StartSrc = InStr(EndUrl + 5, html$, "src=")
                    StartURL = InStr(StartSrc + 3, html$, Chr$(34))
                    EndUrl = InStr(StartURL + 1, html$, Chr$(34))
 
                    URL$ = Mid$(html$, StartURL + 1, EndUrl - StartURL - 1)
 
                    ' URL zerlegen
                    For URLi = Len(URL$) To 1 Step -1
                        If Mid$(URL$, URLi, 1) = "/" Or Mid$(URL$, URLi, 1) = _
                          Chr$(34) Then
                            URL_Filename$ = Mid$(URL$, URLi + 1, 128)
                            URL_Repl$(PicZaehler) = Left$(URL$, Len(URL$) - Len( _
                              URL_Filename$))
                            Exit For
                        End If
                    Next URLi
 
            If Not FileExists(App.Path + "\data\" + Feed_ID$ + "\www\" + _
              URL_Filename$) Then
 
                    ' URL downloaden (URL = URL$)
                    ' => URL Pfad absolut oder relativ???
                    If Left$(URL$, 7) <> "http://" Then
                        ' Base-URL vorschieben (current_item_link$(i))
                        Slash_Zaehler = 0
                        For URLi = 1 To Len(current_item_link$(i))
                            If Mid$(current_item_link$(i), URLi, 1) = "/" Then
                                Slash_Zaehler = Slash_Zaehler + 1
                                If Slash_Zaehler = 3 Then BaseURLEnd = URLi: _
                                  Exit For
                            End If
                        Next URLi
                        ' Doppelte / verhindern
                        If Left$(URL$, 1) = "/" Then
                            BaseURLEnd = BaseURLEnd - 1
                        End If
                        baseURL$ = Left$(current_item_link$(i), BaseURLEnd) + _
                          URL$
                        URL$ = baseURL$
                    End If
 
                    lResult = URLDownloadToFile(0, URL$, App.Path + "\data\" + _
                      Feed_ID$ + "\www\" + URL_Filename$, 0, 0)
            End If
                    PicZaehler = PicZaehler + 1
                Loop