Navigate 기능을 이용한 검색기능 만들기

 Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Dim 인코딩 As String

        인코딩 = Uri.EscapeDataString(TextBox2.Text) '인코딩

        If TextBox2.Text <> "" Then

            WebBrowser1.Navigate("http://post.naver.com/search/authorPost.nhn?keyword=" + 인코딩 + "&memberNo=32011753")

            WebBrowser1.ScriptErrorsSuppressed = True

            TextBox2.Clear()

        Else

            MsgBox("검색어를 다시 입력해주십시오", MsgBoxStyle.Critical)

            TextBox2.Focus()

        End If