Option Explicit
Private Sub Form_Load()
   WebBrowser1.Navigate "http://www.e-ogrenci.org"
    Picture1.Move WebBrowser1.Left, _
                 WebBrowser1.Top, _
                 WebBrowser1.Width, _
                 WebBrowser1.Height
   
End Sub
Private Sub Command1_Click() 
    
    Picture1.Visible = True
    WebBrowser1.Left = Screen.Width + 1000 
    WebBrowser1.Navigate "http://www.e-ogrenci.org" 
  
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
       URL As Variant)
    
    Dim i As Integer
    
    If pDisp = WebBrowser1 Then
      
        For i = 0 To WebBrowser1.Document.Images.length - 1
        
            WebBrowser1.Document.Images.Item(i).src = "C:\WINDOWS\Web\Tips.gif"
            
        Next i
    Picture1.Visible = False
    WebBrowser1.Left = Picture1.Left
    End If
End Sub