Text1.text = x
Text2.text = y
Debug.Print mInI.ReadData("x", "y", Text1.Text)
[Persona]Nombre=PedroApellido=Rodriguez
MsgBox mIni.ReadData("Persona", "Nombre")MsgBox mIni.ReadData("Persona", "Apellido")
Text1.Text = mInI.ReadData("Datos", "User")
Private Sub Form_Load() mIni.Init mIni.Path = App.Path mIni.Filename = "\prueba.ini" MsgBox mIni.ReadData("Persona", "Nombre") MsgBox mIni.ReadData("Persona", "Apellido")End Sub