本人初学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

高手帮帮我啊   谢谢啦

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

效果图是这样

谢谢各位啦  我先试试

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