Citar
If Not TextBox2.Text = TextBox3.Text Then
MsgBox("La contraseña no es válida")
Label6.Text = Val(Label6.Text) - 1
End If
If TextBox2.Text = TextBox3.Text Then
MsgBox("Has ingresado")
Close()
End If
buenas estuve mirando el codigo del logueo que me parecio interesante y creo que se puede aortar un poco no se si esta bien por k empece ace poco pero bueno aki ba:MsgBox("La contraseña no es válida")
Label6.Text = Val(Label6.Text) - 1
End If
If TextBox2.Text = TextBox3.Text Then
MsgBox("Has ingresado")
Close()
End If
Código:
If TextBox2.Text = TextBox3.Text ThenMsgBox("Has ingresado")
Close()
Else
msgbox ("La contraseña no es valida"
lavel6.text = val(lavel6.text) - 1
End if