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