Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox4.Text = "" Then
MsgBox("Ingresa un nombre de usuario", vbInformation)
TextBox4.Focus()
ElseIf TextBox5.Text = "" Then
MsgBox("Ingresa una contraseña", vbInformation)
TextBox5.Focus()
ElseIf TextBox6.Text = "" Then
MsgBox("Ingresa la confirmación tu contraseña", vbInformation)
TextBox6.Focus()
ElseIf TextBox7.Text = "" Then
MsgBox("Ingresa tu nombre", vbInformation)
TextBox7.Focus()
ElseIf TextBox8.Text = "" Then
MsgBox("Ingresa tu correo electrónico", vbInformation)
TextBox8.Focus()
ElseIf ComboBox2.Text = "" Then
MsgBox("Elige un tipo de cuenta")
ComboBox2.Focus()
ElseIf TextBox5.Text = TextBox6.Text Then
-----------> ESTE ES EL MENSAJE PREDETERMINADO txtMensaje.text = "Bienvenido al Sistema. Tu correo electrónico es:" + TextBox8.Text + ", tu nombre de usuario es:" + TextBox4.Text + ", tu contraseña es:" + TextBox5.Text + ", Tu clave generada es: xxx. Todos estos datos son importante para que puedas iniciar sesión, por tanto si tienes problemas al iniciar sesión, por favor comunícate con el administrador del software.")
'Tocaría llamar una funcion Sub Correo
MsgBox("Una nueva cuenta se creó y fué enviada al correo: " + TextBox8.Text + ", todos estos datos son necesarios para que puedas iniciar sesión!", vbInformation)
Call LimpiarCamposDondeSeCreanCuentas()
Timer2.Enabled = True
Else
MsgBox("La confirmación de tu contraseña no coincide!", vbInformation)
End If
End Sub