Dim i As Integer
 
With ListView1
  ' first unselect all items
 For i = 1 To .ListItems.Count
    .ListItems(i).Selected = False
  Next i
 
  ' then select the item 44444444444#
  For i = 1 To .ListItems.Count
    If .ListItems(i).Key = 44444444444# Then
      Set .SelectedItem = .ListItems(i)
      .ListItems(i).Selected = True
 
      .ListItems(i).EnsureVisible
      .SetFocus
      Exit For
    End If
  Next i
End With
SendKeys "{Left}", True

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de