The Code

​

 

 

 

 Public Class Form96

​

    '## The Web Browser control comprises various methods like (GoHome),(GoForward),(GoSearch)--------##
    '## (Refresh). They can be used to Write [Event Driven Procedures] for various Navigation Buttons -----##
    '## For the Navigate Method, we use the following Format : WebBrowser.Navigate(URL) --------------##
    '## Web Page Addresses can be added directly into the Navigate(URL)-------------------------------##
    '## MyWebBrowser.Navigate("Web Page Address") Navigates to Web Page Address -------------------##

​

    Private Sub BtnGo_Click(sender As Object, e As EventArgs) Handles BtnGo.Click
        '## Navigate[1] using Text.Box Input [TxtURL.Text] ----------------------------------------------##
        MyWebBrowser.Navigate(TxtURL.Text)
    End Sub

​

    Private Sub BtnSearch_Click(sender As Object, e As EventArgs) Handles BtnSearch.Click
        '## Navigate[2] Using MyWebBrowser.GoSearch() Command -----------------------------------------##
        MyWebBrowser.GoSearch()
    End Sub

​

    Private Sub BtnHome_Click(sender As Object, e As EventArgs) Handles BtnHome.Click
        '## Navigate[3] Using MyWebBrowser.GoHome() Command ------------------------------------------##
        MyWebBrowser.GoHome()
    End Sub

​

    Private Sub BtnBack_Click(sender As Object, e As EventArgs) Handles BtnBack.Click
        '## Navigate[4] Using MyWebBrowser.GoBack() Command -------------------------------------------##
        MyWebBrowser.GoBack()
    End Sub

​

    Private Sub BtnForward_Click(sender As Object, e As EventArgs) Handles BtnForward.Click
        '## Naviagte[5] Using MyWebBrowser.GoForward() Command ----------------------------------------##
        MyWebBrowser.GoForward()
    End Sub

​

    Private Sub BtnRefresh_Click(sender As Object, e As EventArgs) Handles BtnRefresh.Click
        '## Navigate[6] Using MyWebBrowser.Refresh() Command -------------------------------------------##
        MyWebBrowser.Refresh()
    End Sub

​

    Private Sub EcologyBtn_Click(sender As Object, e As EventArgs) Handles EcologyBtn.Click
        '## Shane Partridge [Wixsite.com] Web Page Address ------------------------------------------------##
        '## Navigate[7] Using MyWebBrowser.Navigate(Web Page Address) Sustainable-ecology/blog------------##
        MyWebBrowser.Navigate("https://shanepatridge.wixsite.com/sustainable-ecology/blog")
    End Sub

​

    Private Sub SolorSystemCosmosBtn_Click(sender As Object, e As EventArgs) Handles SolorSystemCosmosBtn.Click
        '## Navigate[8]-----------------------------------------------------------------------------------##
        '## Shane Partridge [Wixsite.com] Web Page Address ------------------------------------------------##
        '## Navigate Using MyWebBrowser.Navigate(Web Page Address) SolarSystem-Cosmos Extraterrestrials---##
        MyWebBrowser.Navigate("https://shanepatridge.wixsite.com/solarsystem-cosmos/blog")
    End Sub

​

    Private Sub MathematicsBtn_Click(sender As Object, e As EventArgs) Handles MathematicsBtn.Click
        '## Navigate[9]-----------------------------------------------------------------------------------##
        '## Shane Partridge [Wixsite.com] Web Page Address ------------------------------------------------##
        '## Navigate Using MyWebBrowser.Navigate(Web Page Address) Algebraic Mathematics-----------------##
        MyWebBrowser.Navigate("https://shanepatridge.wixsite.com/mathematics/blog")
    End Sub

​

    Private Sub BladderCancerBtn_Click(sender As Object, e As EventArgs) Handles BladderCancerBtn.Click
        '## Navigate[10]----------------------------------------------------------------------------------##
        '## Shane Partridge [Wixsite.com] Web Page Address ------------------------------------------------##
        '## Navigate Using MyWebBrowser.Navigate(Web Page Address) Urothelial Carcinoma Cancer -----------##
        MyWebBrowser.Navigate("https://shanepatridge.wixsite.com/neo-bladder/blog")
    End Sub

​

    Private Sub VisualBasicBtn_Click(sender As Object, e As EventArgs) Handles VisualBasicBtn.Click
        '## Navigate[11] ----------------------------------------------------------------------------------##
        '## Shane Partridge [Wixsite.com] Web Page Address ------------------------------------------------##
        '## Navigate Using MyWebBrowser.Navigate(Web Page Address) visual-basic-2013/blog-1---------------##
        MyWebBrowser.Navigate("https://shanepatridge.wixsite.com/visual-basic-2013/blog-1")
    End Sub

​

    Private Sub CX500Btn_Click(sender As Object, e As EventArgs) Handles CX500Btn.Click
        '## Navigate[12]----------------------------------------------------------------------------------##
        '## Shane Partridge [Wixsite.com] Web Page Address ------------------------------------------------##
        '## Navigate Using MyWebBrowser.Navigate(Web Page Address) Honda CX500 Dog Tag A2802 ----------##
        MyWebBrowser.Navigate("https://shanepatridge.wixsite.com/cx500/blog")
    End Sub

​

    Private Sub CloseBtn_Click(sender As Object, e As EventArgs) Handles CloseBtn.Click
        '## Navigate[13]----------------------------------------------------------------------------------##
        '## Close OOP Language Running Mode to Applications Design Mode ---------------------------------## 
        Form89.Show()
        Me.Hide()

    End Sub

​

End Class