ok1010101 你的我改成这样才运行了！但是INI不记录！

Private Sub Command1_Click()
Dim yxtt As Variant, i As Integer
For i = 0 To 11 ''一共有多少条比如4条
yxtt = Array("Text1", "Text2", "Text3", "Text4", "Text5", "Text6", "Text7", "Text8", "Text9", "Text10", "Text11", "Text12")
Call 写入INI("Form设置", "(yxtt(i))", (yxtt(i)))
Next i
End Sub
Private Sub Command2_Click()
Dim yxtt As Variant, i As Integer
For i = 0 To 11 ''一共有多少条比如4条
yxtt = Array("Text1", "Text2", "Text3", "Text4", "Text5", "Text6", "Text7", "Text8", "Text9", "Text10", "Text11", "Text12")
Call 读取INI("Form设置", yxtt(i), "默认值")
Next i
End Sub

lowxiong   你这样的写法比你写的那个更精简吗？需要怎么书呢教我啊