ok:
codice:
Public Class Form1
    Dim CercaNelForum As Boolean = False
    Dim Login As Boolean = False
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        WebBrowser1.Navigate("http://sito.it")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Inserisci un testo da cercare!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "INSERISCI UN TESTO")
        Else
            CercaNelForum = True
            WebBrowser1.Navigate("http://sito.it/search.php")

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox2.Text = "Username..." And TextBox3.Text = "Password..." Then
            MsgBox("Inserisci un testo da cercare!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "INSERISCI UN TESTO")
        Else
            Login = True
            WebBrowser1.Navigate("http://sito.it/login.php")
        End If

    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Navigate("http://sito.it/logout.php")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.Navigate("http://sito.it/online.php")
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Form2.Visible = True
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Try
            Me.Close()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Form3.Visible = True
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        WebBrowser1.Navigate("http://sito.it/U-" & TextBox1.Text)
        Dim x As String = TextBox1.Text
        Dim y As String = x.Replace(" ", "-")
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If CercaNelForum = True Then
            WebBrowser1.Document.Forms(0).All("keywords").InnerText = TextBox1.Text
            WebBrowser1.Document.Forms(0).All("submit").InvokeMember("click")
            CercaNelForum = False
        End If
        If Login = True Then
            WebBrowser1.Document.GetElementById("username").InnerText = TextBox2.Text
            WebBrowser1.Document.GetElementById("password").InnerText = TextBox3.Text
            WebBrowser1.Document.Forms(0).All("submit").InvokeMember("click")
            Login = False
        End If
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        WebBrowser1.Navigate("http://sito.it/pspshoutbox.php")
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        WebBrowser1.Navigate("http://sito.it/portal.php")
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        WebBrowser1.Navigate("http://sito.it")
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Form4.Visible = True
    End Sub

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

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

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

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Avanzamento.Click

    End Sub

    Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        On Error Resume Next
        If e.CurrentProgress = -1 Then Avanzamento.Value = 100
        Avanzamento.Visible = True 'nascondo la progressbar se siamo al 100%
        If e.CurrentProgress > 0 And e.MaximumProgress > 0 Then
            Avanzamento.Visible = True
            Avanzamento.Value = e.CurrentProgress * 100 / e.MaximumProgress
        End If
    End Sub
End Class
P.S. l'errore ClickOnce che mi evita di fare il debug è: "impossibile firmare i manifesti ClickOnce perché contengono uno o più riferimenti per cui non è stato eseguito l'hashing."
Forse se riuscissi ad avviare il debug riuscirei a farlo funzionare nella cartella "bin"