
Private Sub ListBox2_Click()
With Me
.TextBox1.Text = .ListBox2.List(.ListBox2.ListIndex, 0)
.TextBox2.Text = .ListBox2.List(.ListBox2.ListIndex, 1)
.TextBox3.Text = .ListBox2.List(.ListBox2.ListIndex, 2)
.TextBox4.Text = .ListBox2.List(.ListBox2.ListIndex, 3)
.TextBox5.Text = .ListBox2.List(.ListBox2.ListIndex, 4)
.TextBox6.Text = .ListBox2.List(.ListBox2.ListIndex, 5)
End With
End Sub
|
