VB6.0 控件数组遍历问题

For Each fs In MyForm.Controls
        If TypeOf fs Is TextBox Then an.WriteInI MyForm.Name, fs.Name, fs.Text, App.path & "\Userver.ini"
        If TypeOf fs Is CheckBox Then an.WriteInI MyForm.Name, fs.Name, fs.Value, App.path & "\Userver.ini"
        If TypeOf fs Is OptionButton Then an.WriteInI MyForm.Name, fs.Name, fs.Value, App.path & "\Userver.ini"
        If TypeOf fs Is ListBox Then
            For xf = 0 To fs.ListCount - 1
                If fs.List(xf) <> "" Then
                    If fs.Style = 1 Then
                        arr = arr & fs.List(xf) & "<>" & fs.Selected(xf) & "|"
                    Else
                        arr = arr & fs.List(xf) & "|"
                    End If
                End If
            Next
            If arr <> "" Then an.WriteInI MyForm.Name, fs.Name, arr, App.path & "\Userver.ini"
        End If
        If TypeOf fs Is ComboBox Then
            arr = ""
            For xf = 0 To fs.ListCount - 1
                If fs.List(xf) <> "" Then
                    If fs.Style = 2 Or fs.Style = 0 Then
                        arr = arr & fs.List(xf) & "|"
                    Else
                        arr = arr & fs.Text
                    End If
                End If
            Next
            If arr <> "" Then
                an.WriteInI MyForm.Name, fs.Name, arr, App.path & "\Userver.ini"
                an.WriteInI MyForm.Name, fs.Name & ".ListIndex", fs.ListIndex, App.path & "\Userver.ini"
            End If
        End If
    Next
我这个自动保存的遇到控件数组的话就只保存了一个,其它的都不保存,该怎么解决