界面如图2所示。如何实现点击图一按钮，让左边listbox控件里的内容
全部移到右边listbox控件里。谢谢！

还有这个功能，点击上移按钮，listbox1控件高亮显示的行上移，
点击下移按钮,listbox1控件高亮显示的行下移。

Private Sub command1_Click()
  On Error Resume Next
  Dim i As Integer
  For i = 0 To lstleft.ListCount - 1
    lstright.AddItem lstAll.List(i)
  Next
  lstleft.Clear
  lstright.ListIndex = 0
End Sub

Private Sub cmdUp_Click()
  On Error Resume Next
  Dim nItem As Integer
  
  With listview1
    If .ListIndex < 0 Then Exit Sub
    nItem = .ListIndex
    If nItem = 0 Then Exit Sub  '不能将第一个项目向上移动
    '向上移动项目
    .AddItem .Text, nItem - 1
    '删除旧的项目
    .RemoveItem nItem + 1
    '选择刚刚被移动的项目
    .Selected(nItem - 1) = True
  End With
End Sub

Private Sub cmdDown_Click()
  On Error Resume Next
  Dim nItem As Integer
  
  With listview1
    If .ListIndex < 0 Then Exit Sub
    nItem = .ListIndex
    If nItem = .ListCount - 1 Then Exit Sub '不能将最后的项目向下移动
    '向下移动项目
    .AddItem .Text, nItem + 2
    '删除旧的项目
    .RemoveItem nItem
    '选择刚刚被移动的项目
    .Selected(nItem + 1) = True
  End With
End Sub

应该很容易完成的功能，我觉得楼主还是脚踏实地多学习吧。

你先学习一下listbox控件