vb初学者的问题

Question

请教各位VB6.0下，1.LISTBOX控件怎么实现使初始化选项显示在当前LISTBOX控件窗口中？
2.LISTBOX控件怎么实现鼠标选择上下选项箭头时，自动选择选项，并把选项显示在当前LISTBOX控件窗口中？例如有三个选项并且当前选项是第一项，按一次向下箭头选中第二项，再按一次选择选择第三项，再按一次又选择第一项。

Answer 1

大概是这样,不过要自己修改一下: 这个代码按向上箭头也要下移选择一项Option Explicit
Dim i As Integer
Private Sub Form_Load()
        List1.AddItem "第一项"
        List1.AddItem "第二项"
        List1.AddItem "第三项"
        List1.AddItem "第四项"
        List1.AddItem "第五项"
        List1.AddItem "第六项"
        List1.ListIndex = 0
        i = 0
End SubPrivate Sub List1_Scroll()
        i = i + 1
        If i >= List1.ListCount Then
           i = 0
        Else
            List1.Selected(i) = True
        End If
End Sub