Private Sub Form_Load ()
Dim I ' 声明变量。
' 用屏幕字体名字填充列表框。
For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I
End Sub
Private Sub Command1_Click ()
Dim I ' 声明变量。
' 清除列表中所有的项。
List2.Clear
' 如果一个项被选中,那么将它加入到 List2。
For I = 0 To List1.ListCount - 1
If List1.Selected(I) Then
List2.AddItem List1.List(I)
End If