你说的一列是指一行（或者说一项）吗？Private Sub Command1_Click() If List1.ListIndex > -1 Then List2.AddItem List1.TextEnd Sub以上是把List1选中的一项复制到List2中
listbox中可以选中一列？
