Public Sub btnGuardarMoneda_Click()
FMain.Moneda = txtMoneda.Text
FMain.MonedaDescripcion = txtDescripcionMoneda.Text
Settings["Opciones/Moneda"] = FMain.Moneda
Settings["Opciones/MonedaDescripcion"] = FMain.MonedaDescripcion
Ventanas.Mgv1.Close
Ventanas.Mgv1.Open("Cambios guardados.")
Wait 1
Ventanas.Mgv1.Close
End
FMain.Moneda = txtMoneda.Text
FMain.MonedaDescripcion = txtDescripcionMoneda.Text
Settings["Opciones/Moneda"] = FMain.Moneda
Settings["Opciones/MonedaDescripcion"] = FMain.MonedaDescripcion
Ventanas.Mgv1.Close
Ventanas.Mgv1.Open("Cambios guardados.")
Wait 1
Ventanas.Mgv1.Close
End
los guardo en un archivo settings
después en los eventos actívate actualizo las variables y inmediatamente se visualizan los cambios en los formularios.