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