A.
Private Sub Command1_Click() Open “c:/list.txt”For Input As #1 For i=0 To Listl.ListCount-1 Print #1,List1.List(i) Next i Close #1 End Sub
B.
Private Sub Command1_lick() Open “c:/list.txt”For Output As #1 For i=0 To List1.ListCount Print #1,List1.List(i) Next i Close #1 End Sub
C.
Private Sub Command1_Click() Open “c:/list.txt”For Output As #1 For i=0 To List1.ListCount -1 Print #1,List1. List(i) Next i C1ese #1 End Sub
D.
Private Sub Command1_Click() Open “c:/list.txt”For As #1 For i=0 To List1.ListCount Print #1,List1.List(i) Next i Close #1 End Sub