Codenstuff.com

    Private Sub mnuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpen.Click
        wb.Navigate(hEle.GetAttribute("href"))
    End Sub

    Private Sub mnuLinkLoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuLinkLoc.Click
        Clipboard.SetText(hEle.GetAttribute("href"))
    End Sub

    Private Sub mnuSaveImg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSaveImg.Click
        Dim source As String = hEle.GetAttribute("src")
        Dim path As String = "C:\Images\"
        My.Computer.Network.DownloadFile(source, path)
    End Sub

    Private Sub mnuCopyImgLoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCopyImgLoc.Click
        Clipboard.SetText(hEle.GetAttribute("src"))
    End Sub

    Private Sub mnuOpenImg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpenImg.Click
        wb.Navigate(hEle.GetAttribute("src"))
    End Sub