Cambiar contraseñas en programación VB.
Private Sub Command1_Click()
Si Text1.Text lt;gt; GetSetting(App.Title, "Configuración", "Contraseña", "") Luego MsgBox "Contraseña incorrecta. Vuelva a ingresar": Salir Sub
Si Text2.Text lt;gt; Text3.Text Then MsgBox "Las dos entradas no son iguales, vuelva a ingresar": Salga de Sub
SaveSetting App.Text2. Envíe un mensaje de texto a
MsgBox "¡Cambio exitoso!"
Descargar aplicación.
Descargarme
End Sub