Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 
Private Sub URL_Load(ByVal sURL As String)
  Dim sQuelltext As String
 
  With WebBrowser1
    .Tag = "Load"
    .Navigate "http://www.showmyip.com/simple/"
 
    ' Warten bis Seite vollständig geladen ist
    While .Tag <> ""
      DoEvents
    Wend
  End With
End Sub

If IQ = 0 then
txtHello.Text= Hallo Bill Gates

mein erstes VB proggy