一个简单的问题，关于listbox

Question

Private Sub Form_Load ()
   Dim I   ' Declare variable.
   ' Fill the list box with screen font names.
   For I = 0 To Screen.FontCount - 1
      List1.AddItem Screen.Fonts(I)
   Next I
End SubPrivate Sub Command1_Click ()
   Dim I   ' Declare variable.
   ' Clear all items from the list.
   List2.Clear
   ' If an item is selected, add it to List2.
   For I = 0 To List1.ListCount - 1
      If List1.Selected(I) Then
         List2.AddItem List1.List(I)
      End If
   Next I
End Sub

Answer 1

List2'输出结果List1源数据
For i = 0 To List1.ListCount - 1
If List1.Selected(i)=True Then
List2.AddItem List1.List(i)
End If
Next i