Private Sub Command1_Click()
For i = 1 To 20
List1.AddItem i & i
Next
End Sub
Private Sub List1_Click()
Dim h As Long
h = TextHeight(List1.List(List1.ListIndex))
Text1.Move List1.Left, List1.Top + List1.ListIndex * h, List1.Width, h
Text1.BorderStyle = 1
Text1.Text = List1.List(List1.ListIndex)
Text1.ForeColor = vbRed
End Sub