[Question]E-mail(Bug Report)

How would i make a Submit bug form ? i have a code below but it wont work


[php]Imports System.Net.Mail
Public Class SubmitBug

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Dim WC As New System.Net.WebClient
Dim MyMailMessage As New MailMessage

MyMailMessage.To.Add("submitbug@gmail.com")
MyMailMessage.Subject = (TextBox2.Text)
WC.Dispose()
MyMailMessage.Body = (RichTextBox1.Text)
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Credentials = New System.Net.NetworkCredential("Nexgen1: Removed Email", "Nextgen1: Removed Password")
SMTPServer.EnableSsl = True

Try
SMTPServer.Send(MyMailMessage)

Catch ex As SmtpException


Catch ex As Exception

End Try
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox(" Please Visit mpgh.net For The Best VIP Hacks, Pub Hacks + More", MsgBoxStyle******rmation + MsgBoxStyle.OkOnly)
Me.Close()
End Sub


Private Sub TextBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Click
TextBox1.Text = ""
End Sub

Private Sub TextBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.Click
TextBox2.Text = ""
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
System.Diagnostics.Process.Start("http://mpgh.net")
End Sub
End Class[/php]