Can someone please help me fix these codes?

[php] Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEven tArgs) Handles WebBrowser1.ProgressChanged
ProgressBar1.Maximum = Convert.ToInt32(e.MaximumProgress)
ProgressBar1.Value = Convert.ToInt32(e.CurrentProgress)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox3.Text <> Nothing Then
WebBrowser1.Navigate(TextBox3.Text)
End If
End Sub[/php]

/

We need more details...

i mean have it change to the webbrowser's url.

[php] Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEven tArgs) Handles WebBrowser1.ProgressChanged
ProgressBar1.Maximum = Convert.ToInt32(e.MaximumProgress)
ProgressBar1.Value = Convert.ToInt32(e.CurrentProgress)
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
TextBox3.Text = WebBrowser1.Url.AbsoluteUri
End Sub [/php]

It's not that hard is it?

thanks peopel.

[php]Module Module1
Dim PublicFirstform As Form1

Public Class firstform
Declare Function form1.textbox1.text = "hi"
End Class
End Module[/php]

What the fuck is this supposed 2 be?

That's absolute nonsense.

You declare a form in a module.
You declare a from1.textbox1.text = "hi" function.
You put a form in a module.

[php]Public Class firstform
private function settext
textbox1.text = "Hi"
end function
end class
[/php]

Start here:

[youtube]-TSigZD4D2E[tube]

**Correction

I added IF textbox1.text = "hi" then

not change the text.

ty for the code though. it will become usefull