不會的就放這邊

   Sub LoadWeb()
        txtWebsite.Text = ""
        Dim str As String = txtSearch.Text
        'EscapeDataStringでURLエンコードする
        Dim escapeDataString As String = Uri.EscapeDataString(str)

        Dim ulr As String = "https://www.google.com.tw/search?q=" & escapeDataString & "&hl=zh-TW&source=lnms&tbm=isch&sa=X&ved=0ahUKEwjQgqjRxfrhAhWQyYsBHdsdChwQ_AUIDigB&biw=1280&bih=619"
        Dim dateyear As String = "https://www.google.com.tw/search?q=" & escapeDataString & "&client=opera&tbas=0&tbm=isch&sxsrf=ACYBGNS2YHnxCtiPY4uCixVaYO-XF4M7zQ:1569827326912&source=lnt&tbs=qdr:y&sa=X&ved=0ahUKEwjMpLfB_vfkAhWiyIsBHQiNCNYQpwUIIw&biw=1280&bih=618&dpr=1.25"

        If CheckBox1.Checked Then
            txtContent.Text = ""
            txtWebsite.Text = dateyear
        Else
            txtContent.Text = ""
            txtWebsite.Text = ulr
        End If

        Me.WebBrowser1.Navigate(txtWebsite.Text)
    End Sub