将list控件中选中的一项赋值为text1的Text成员？

刚才没看清楚,这个是完整代码.应该符合你的要求.Dim selectitem As LongPrivate Sub Command1_Click()List1.List(selectitem) = Text1.TextEnd SubPrivate Sub List1_Click()selectitem = List1.ListIndexEnd Sub