with lv
 .DataMode = Mode_List
 .AllowMultiSelect = True
end with
 
Private Sub lv_GotFocus()
  ' sind überhaupt Zeilen da
  If lv.Rows >= 1 Then
    ' Bisher war keiner Selektiert
    If lv.SelCount = 0 Then
      ' dann selektiere den ersten Eintrag
      lv.IsSelected(1) = True
    End If
  End If
End Sub