Private Sub Command1_Click()
With Inet1
  .AccessType = icDirect
  .Protocol = icHTTP
 
  ' Inhalt der Webseite auslesen
  sBuffer = .OpenURL("http://www.nudelmc.de/reload/go2.php?x=" & x.Text & "&y=" _
    & y.Text, icString)
 
  Command2.Caption = sBuffer
  Timer1.Enabled = True
End With
End Sub
 
Private Sub Timer1_Timer()
zeit = sBuffer
If zeit > 0 Then
    zeit = zeit - 1
End If
Command2.Caption = zeit
End Sub