Internet explorar Source [Asif]

Public Class frmMain

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        WebBrowser1.GoBack()
    End Sub

    Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
        WebBrowser1.GoForward()
    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        WebBrowser1.Stop()
    End Sub

    Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
        WebBrowser1.Refresh()
    End Sub

    Private Sub e_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles e.Click
        WebBrowser1.GoHome()
    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        WebBrowser1.GoSearch()
    End Sub

    Private Sub btnFavorites_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFavorites.Click
        If panelfavorites.Visible = False Then
            panelfavorites.Visible = True
        Else
            panelfavorites.Visible = False
        End If
    End Sub

    Private Sub btnMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMail.Click
        Shell("C:\Program Files\Outlook Express\MSIMN.exe")
    End Sub

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        WebBrowser1.Print()
    End Sub

    Private Sub NewWindowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewWindowToolStripMenuItem.Click
        Shell(My.Application.Info.DirectoryPath & "\IE6 Clone")
    End Sub
Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
        WebBrowser1.ShowSaveAsDialog()
    End Sub

    Private Sub PageSetupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageSetupToolStripMenuItem.Click
        WebBrowser1.ShowPageSetupDialog()
    End Sub

    Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click
        WebBrowser1.Print()
    End Sub

    Private Sub PrintPreviewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreviewToolStripMenuItem.Click
        WebBrowser1.ShowPrintPreviewDialog()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
        WebBrowser1.Document.ExecCommand("cut", True, DBNull.Value)
    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
        WebBrowser1.Document.ExecCommand("copy", True, DBNull.Value)
    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
        WebBrowser1.Document.ExecCommand("paste", True, DBNull.Value)
    End Sub

    Private Sub WindowsMarketPlaceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsMarketPlaceToolStripMenuItem.Click
        WebBrowser1.Navigate("http://www.windowsmarketplace.com/?WT.mc_id=0806_083")
    End Sub
Private Sub cboFavorites_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboFavorites.SelectedIndexChanged
        WebBrowser1.Navigate(cboFavorites.Text)
    End Sub

    Private Sub FavoritesToolStripMenuItem__Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FavoritesToolStripMenuItem.Click
        LoadFavoritesCombo()
    End Sub