Private Sub Form_Load()
Dim ToolToUpd As String
ToolToUpd = GetSetting("flashware", "update", "tool")
MsgBox ToolToUpd
If ToolToUpd = "wtt" Then
xpList1.ItemsAdd "What The Time", , wtt_ico, wtt_ico
xpList2.ItemsAdd "Loading Files from Mirror: " + Inet1.URL + " ..."
Inet1.URL = Inet1.URL + ToolToUpd + ".upd"
  Screen.MousePointer = 11
  With Inet1
    sData = ""
    .Tag = "Loading"
    .Execute Inet1.URL
    Do
      DoEvents
    Loop Until .Tag <> "Loading"
 
    If .Tag = "Ready" Then
      ' Anfrage korrekt bearbeitet
      ' Seiten-Quelltext anzeigen
      txtData.Text = sData
    ElseIf .Tag = "Error" Then
      ' Fehler
      MsgBox "Es ist ein Fehler aufgetreten!"
    End If
  End With
  Screen.MousePointer = 0
  Else
End If
End Sub
 
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vData As Variant
  Dim bReady As Boolean
 
  With Inet1
    Select Case State
      Case icError
        ' Es ist ein Fehler aufgetreten
        .Tag = "Error"
      Case icResponseCompleted
        ' Segment holen
        vData = .GetChunk(1024, icString)
        DoEvents
 
        Do
          sData = sData & vData
          ' Nächstes Segment holen
          vData = .GetChunk(1024, icString)
          DoEvents
 
          If Len(vData) = 0 Then bReady = True
        Loop Until bReady
        .Tag = "Ready"
     End Select
   End With
End Sub