一个简单的VB界面设计问题。请指教！！！

[lzh4481]

怎样用代码将焦点定位到List控件的某一个Item?

[foolishtiger]

' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-19
'Description:要试用本例请在窗体中填加一个按钮和一个ListBox
' 然后在代码窗体中粘贴如下代码
' Good luck!

Option Explicit

Private Sub Command1_Click()
List1.ListIndex = 3

List1.SetFocus
End Sub

Private Sub Form_Load()
Dim lngIndex As Long

For lngIndex = 1 To 6
List1.AddItem Mid("一二三四五六", lngIndex, 1)
Next

List1.ListIndex = 0
End Sub

[lzh4481]

感谢！！！