问一个VB的简单语句

Private Sub Command3_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
List2.AddItem List1.List(i)
End If
Next i
End Sub
帮我把下面这些翻译：
1.Dim i As Integer
2.List2.AddItem List1.List(i)
3.End If
4.Next i
另求一个想赚知道积分的VB高手，或群，给加十分

再次更正
1.Dim i As Integer
声明局部非静态整型变量i

2.List2.AddItem List1.List(i)
在LIST2中添加一项，这一项是LIST1中的第i项

3.End If 结束IF语句块

4.Next i 将程序控制权转移至For所在的语句行，以判断i的值是否超过终值，如果超过则退出For循环、如果没超过则再次执行For循环的循环体。

1.Dim i As Integer '声明I为整型
2.List2.AddItem List1.List(i) LIST2添加LIST1中的第I项
3.End If 结束IF语句
4.Next i 退出FOR循环

..这么简单还来问。建议还是买本来学吧 别脑残了

更正下
1.Dim i As Integer '声明I为整型
2.List2.AddItem List1.List(i) LIST2添加LIST1中的第I项
3.End If 结束IF语句
4.Next i 下一个I值，即始循环进行

Dim i As Integer 定义整形变量i
List2.AddItem List1.List(i) 列表框list1中的第i项添加到列表框list2中
End If 结束If语句
Next i 转入下个i继续执行循环，当i超出指定范围后，退出For循环

Private Sub Command3_Click()
Dim i As Integer '声明I为整型,一个数字观念,不是字符
For i = 0 To List1.ListCount - 1 '倒过来历遍
If List1.Selected(i) Then '如果被选中的list.text
List2.AddItem List1.List(i) '就将选中的这个值写放list2中
End If
Next i
End Sub