Private Sub List1_Click() Dim MyArr MyArr = Split(List1.List(List1.ListIndex), vbTab) Text1.Text = MyArr(0) Text2.Text = MyArr(1) Text3.Text = MyArr(2) Text4.Text = MyArr(3) Text5.Text = MyArr(4) End Sub
Private Sub List1_Click() Text1.Text = List1.Column(0) Text2.Text = List1.Column(1) Text3.Text = List1.Column(2) Text4.Text = List1.Column(3) Text5.Text = List1.Column(4) end sub