HTML Grabber v1

[AceInfinity]

Like I mentioned on my forum, no need to give up just from someone else throwing words at you when you were proud of the work yourself to begin with.

Here's how I would have done your application though:

Code:

Private Sub GetURLSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetURLSource.Click
    Dim wc As New WebClient()
    RichTextBox1.Text = wc.DownloadString(TextBox1.Text)
End Sub

Private Sub Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clear.Click
    RichTextBox1.Clear()
End Sub

Private Sub CopyHTML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyHTML.Click
    RichTextBox1.Copy()
End Sub

Private Sub SaveHTML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveHTML.Click
    Dim sw As New StreamWriter("file.txt")
    sw.Write(RichTextbox1.Text)
    sw.Close()
    sw.Dispose()
End Sub

In it's simplest form, without error handling or anything, that should do the trick.