Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
Dim oIE As Object = Nothing
 
        Me.WindowState = FormWindowState.Minimized
 
        Try
 
             oIE = CreateObject("InternetExplorer.Application")
 
            ' IE sichtbar machen und URL laden
            oIE.Visible = True
            oIE.Navigate2("http://www.webseite.de")
 
            oIE.FullScreen = True
            oIE.StatusBar = False
 
            Do While oIE.Busy '.Busy funktioniert nur beim "anklicken" von _
              Links, nicht beim Senden von Forms
                System.Threading.Thread.Sleep(100) 'Warte 100 ms wenn oIE ist 
                ' beschäftigt
            Loop
 
 
         Catch ex As Exception
            MsgBox("Fehler beim Aufruf der URL!" & vbCrLf & ex.Message, _
              MsgBoxStyle.Exclamation)
        Finally
            If Not IsNothing(oIE) Then oIE = Nothing
        End Try
 
    End Sub
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MsgBox(oIE.LocationURL)
    End Sub