本人初学VB6.0  在书上有个例子 可输进去不对 找不出错误 对了也没输入错误 就是运行不出来 高手帮帮忙吧
Private Sub Command1_Click(Index As Integer)
  Select Case Index        '将选择的列表项从list移到list2
    Case 1
      If List1.ListCount = 0 Then
        Exit Sub
      End If
      If List1.ListIndex = -1 Then
        List1.SetFocus
        List1.Selected(0) = True
      End If
      DoEvents       '如果list1中没有选中的列表项则选择第一个列表项
      List2.AddItem List1.Text          '将选择的列表项从list1移到list2；将list1的所有列表项移到list2中
      List1.RemoveItem List1.ListIndex
    Case 2
      If List1.ListCount = 0 Then
        Exit Sub
      If List1.ListIndex = -1 Then
        List1.SetFocus
        List1.Selected(0) = True
      End If
      DoEvents           '如果list1中没有选中的列表项则选择第一个列表项
      For i = (List1.ListCount - 1) To 0 Step -1
        List2.AddItem List1.List(i)
        DoEvents
      Next i              '讲list1中的所有列表项添加到list2中
      List1.Clear         '删除list1中的所有列表项；将选择列表项list2移到list1
    Case 3
      If List2.ListCount = 0 Then
        Exit Sub
      End If
      If List2.ListIndex = -1 Then
        List2.SetFocus
        List2.Selected(0) = True
      End If
      List1.AddItem List2.Text
      List2.RemoveItem List2.ListIndex
    Case 4
      If List2.ListCount = 0 Then
        Exit Sub
      End If
      If List2.ListIndex = -1 Then
        List2.SetFocus
        List2.Selected(0) = True
      End If
      For i = (List2.ListCount - 1) To 0 Step -1
        List1.AddItem List2.List(i)
        DoEvents
      Next i
      List2.Clear
  End Select
End Sub

Private Sub Form_Load()
  List1.AddItem "信息系统概论", 0
  List1.AddItem "组织行为学", 1
  List1.AddItem "会计学", 2
  List1.AddItem "货币银行学", 3
  List1.AddItem "西方经济学", 4
  List1.AddItem "公共关系学", 5
  List1.AddItem "博弈论", 6
End Sub

高手帮帮我啊   谢谢啦

如果代码正确的话

Form1: Control

Command1(1) +  Command1(2) +  Command1(3) +  Command1(4) + List1 + List2

有设置正确吗？

高手你说的设置是哪个哈   list设置没有动  Command1的也没有动

效果图是这样

1、你的 command1 控件的下标是从 0 开始的，还是从 1 开始的？？
如果是从 0 开始的 ， 这行改成这样的
  Select Case Index + 1      '将选择的列表项从list移到list2   

2、这里 少了一个 End If，需要补上
    Case 2
      If List1.ListCount = 0 Then
        Exit Sub
      If List1.ListIndex = -1 Then

3、存在变量未定义的情况（建议补上）
在 Private Sub Command1_Click(Index As Integer) 后面加一行
Dim i As Long

更正以上三个问题后，测试通过。

不该断行的地方你断行

Option Explicit

Private Sub Command1_Click(Index As Integer)
Dim i As Integer
    
    Select Case (Index)        '将选择的列表项从list移到list2
        Case 1
            If List1.ListCount = 0 Then
                Exit Sub
            End If
            If List1.ListIndex = -1 Then
                List1.SetFocus
                List1.Selected(0) = True
            End If
            DoEvents       '如果list1中没有选中的列表项则选择第一个列表项
            List2.AddItem List1.Text          '将选择的列表项从list1移到list2；将list1的所有列表项移到list2中
            List1.RemoveItem List1.ListIndex
        Case 2
            If List1.ListCount = 0 Then Exit Sub    '<--------
            If List1.ListIndex = -1 Then
                List1.SetFocus
                List1.Selected(0) = True
            End If
            DoEvents           '如果list1中没有选中的列表项则选择第一个列表项
            For i = (List1.ListCount - 1) To 0 Step -1
                List2.AddItem List1.List(i)
                DoEvents
            Next i              '讲list1中的所有列表项添加到list2中
            List1.Clear         '删除list1中的所有列表项；将选择列表项list2移到list1
        Case 3
            If List2.ListCount = 0 Then
                Exit Sub
            End If
            If List2.ListIndex = -1 Then
                List2.SetFocus
                List2.Selected(0) = True
            End If
            List1.AddItem List2.Text
            List2.RemoveItem List2.ListIndex
        Case 4
            If List2.ListCount = 0 Then
                Exit Sub
            End If
            If List2.ListIndex = -1 Then
                List2.SetFocus
                List2.Selected(0) = True
            End If
            For i = (List2.ListCount - 1) To 0 Step -1
                List1.AddItem List2.List(i)
                DoEvents
            Next i
            List2.Clear
    End Select
    
End Sub

Private Sub Form_Load()
  List1.AddItem "信息系统概论", 0
  List1.AddItem "组织行为学", 1
  List1.AddItem "会计学", 2
  List1.AddItem "货币银行学", 3
  List1.AddItem "西方经济学", 4
  List1.AddItem "公共关系学", 5
  List1.AddItem "博弈论", 6
End Sub

谢谢各位啦  我先试试

前段时间忙着考试 没时间看   请问下下标是什么？  是TabIndex吗？  改了 报错啊