一个关于ListView的问题，不知道有没有办法解决？？

想实现自动选中所需的目标记录（由于记录比较多想同时实现界面显示自动调转）
我用的vb6.0
发现Microsoft Windows Common Controls 5.0(sp2)和Microsoft Windows Common Controls 6.0(sp3)
的listview控件
5.0和6.0都能选；但是5.0能自动调转到所选的目标，而6.0不行。但是有的功能6.0有的5.0没有，现在想用6.0，但又想实现跟5.0一样，能自动调转到所选的目标不知道各位高手有没有办法？？
谢谢！！！
Dim its As ListItem
Dim its1 As ListItem
Dim I As Long
    '5.0(sp2)
    ListView1.ColumnHeaders.Clear
    ListView1.ColumnHeaders.Add 1, , "姓名", 1000
    ListView1.ColumnHeaders.Add 2, , "身份证号", 2200 'ListView1.Width / 2
    ListView1.ColumnHeaders.Add 3, , "单位社保号", 2000 ' ListView1.Width / 3
    ListView1.ColumnHeaders.Add 4, , "家属编号", 2000 ' ListView1.Width / 3
    ListView1.View = lvwReport
 For I = 1 To 30
    Set its = ListView1.ListItems.Add(I, , I)
    its.SubItems(1) = CStr(I) & "PID"
    its.SubItems(2) = CStr(I) & "SSN"
    its.SubItems(3) = CStr(I) & "JSID"
 Next I
 For I = 1 To ListView1.ListItems.Count   If ListView1.ListItems(I).Text = "20" Then
         ListView1.ListItems(I).Selected = True
    End IfNext I
'''以下是6.0(sp3)
''    ListView2.ColumnHeaders.Clear
''    ListView2.ColumnHeaders.Add 1, , "姓名", 1000
''    ListView2.ColumnHeaders.Add 2, , "身份证号", 2200 'ListView1.Width / 2
''    ListView2.ColumnHeaders.Add 3, , "单位社保号", 2000 ' ListView1.Width / 3
''    ListView2.ColumnHeaders.Add 4, , "家属编号", 2000 ' ListView1.Width / 3
''    ListView2.View = lvwReport
''    ListView2.FullRowSelect = True
''    For I = 1 To 9
''        Set its1 = ListView2.ListItems.Add(I, , I)
''        its1.SubItems(1) = CStr(I) & "PID"
''        its1.SubItems(2) = CStr(I) & "SSN"
''        its1.SubItems(3) = CStr(I) & "JSID"
''    Next I
''    For I = 1 To ListView2.ListItems.Count
''
''        If ListView2.ListItems(I).Text = "7" Then
''            ListView2.ListItems(I).Selected = True
''        End If
''
''    Next I