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