vb 我真是晕 请教高手 谢谢啊 关于注册表

Dim Exec(4) As String
Dim i As Integer
Dim AppCount As Integer
Dim AppIndex As IntegerPrivate Sub Form_Load()
    AppCount = GetSetting(appname:="QRun", section:="SetApp", _
                          Key:="AppCount", Default:="0")
    If AppCount = 0 Then
        MsgBox "起動するアプリケーションを登録してください。"
        Setup.Show 1
    Else
        For i = 1 To AppCount
            Exec(i) = GetSetting(appname:="QRun", section:="SetApp", _
                                 Key:=i, Default:="")
            List1.AddItem Exec(i)
        Next
    End If
        AppDel.Enabled = False
End SubPrivate Sub AppAdd_Click()
    If List1.ListCount < 4 Then             '4つ以上は登録不可にする処理
        Setup.Show 1
    Else                                    '4つ以上は登録不可にする処理
        MsgBox "４つ以上は登録できません"     '4つ以上は登録不可にする処理
    End If                                  '4つ以上は登録不可にする処理
End SubPrivate Sub AppDel_Click()
    Dim LoopCount As Integer
    
    LoopCount = 1
    
    AppCount = GetSetting(appname:="QRun", section:="SetApp", _
                          Key:="AppCount", Default:="0")
    AppIndex = List1.ListIndex
    
    For i = 1 To AppCount
        DeleteSetting "QRun", "SetApp", i
    Next
    
    List1.RemoveItem AppIndex
    AppCount = AppCount - 1
    
    SaveSetting appname:="QRun", _
                section:="SetApp", Key:="AppCount", _
                setting:=AppCount
                
    For LoopCount = 1 To AppCount
        SaveSetting appname:="QRun", _
                    section:="SetApp", Key:=LoopCount, _
                    setting:=List1.List(LoopCount - 1)
    Next    If AppCount = 0 Then
        MsgBox "起動するアプリケーションを登録してください。"
        Setup.Show 1
    End If
    AppDel.Enabled = False
End SubPrivate Sub Exit_Click()
    End
End SubPrivate Sub List1_Click()
    AppDel.Enabled = True
End SubPrivate Sub Run_Click()
    Dim Ret As Variant
    
    AppCount = GetSetting(appname:="QRun", section:="SetApp", _
                          Key:="AppCount", Default:="0")
    
    For i = 1 To AppCount
        Exec(i) = GetSetting(appname:="QRun", section:="SetApp", _
                             Key:=i, Default:="")
        
'       On Error GoTo MSG                   '何らかの原因で起動できなかったときの処理
        Ret = Shell(Exec(i), vbNormalFocus)
    
    Next
    main.WindowState = 1
    
'    Exit Sub
    
'MSG:                                        'エラー処理ルーチン
'    MsgBox Exec(i) & "は起動できませんでした。 エラー " & Err.Number
'    Resume Next                             'エラーが起こった次行に処理を返すEnd Sub
这样的一个命令 好像是与注册表有关  中间的 loopcount=1这个代表什么意思 等于1以后 后面有什么关系 因为本人现在手里只有一本日文vb书 有好多真是看不明白 这里的i是什么？？？？