<code>
Option Explicit
 
<font color=green>' Datenvariable</font>
Dim sData As String
 
<font color=green>' Anfrage absenden (hier URL laden und Seiten-Quelltext 
' anzeigen)</font>
Private Sub Command1_Click()
  Screen.MousePointer = 11
  With Inet1
    sData = ""
    .Tag = "Loading"
    .Execute txtURL.Text
    Do
      DoEvents
    Loop Until .Tag <> "Loading"
 
    If .Tag = "Ready" Then
      <font color=green>' Anfrage korrekt bearbeitet
      ' Seiten-Quelltext anzeigen</font>
      txtData.Text = sData
    ElseIf .Tag = "Error" Then
      <font color=green>' Fehler</font>
      MsgBox "Es ist ein Fehler aufgetreten!"
    End If
  End With
  Screen.MousePointer = 0
End Sub
 
<font color=green>' Status abfragen</font>
Private Sub Inet1_StateChanged(ByVal State As Integer)
  Dim vData As Variant
  Dim bReady As Boolean
 
  With Inet1
    Select Case State
      Case icError
        <font color=green>' Es ist ein Fehler aufgetreten</font>
        .Tag = "Error"
      Case icResponseCompleted
        <font color=green>' Segment holen</font>
        vData = .GetChunk(1024, icString)
        DoEvents
 
        Do
          sData = sData & vData
          <font color=green>' Nächstes Segment holen</font>
          vData = .GetChunk(1024, icString)
          DoEvents
 
          If Len(vData) = 0 Then bReady = True
        Loop Until bReady
        .Tag = "Ready"
     End Select
   End With
End Sub</code>