Private Sub Command1_Click() List1.ListIndex = 0 Text1.Text = List1.List(List1.ListIndex) For i = 1 To List1.ListCount - 1 List1.ListIndex = i Text1.Text = Text1.Text & vbCrLf & List1.List(List1.ListIndex) Next i End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question