Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        For a As Integer = 0 To 50
            Dim lv As New ListViewItem
            lv.Text = "Item" & a
            ListView1.Items.Add(lv)
        Next
        ListView1.Items.Item(ListView1.Items.Count - 1).Selected = True ' 
        ' letztes Item selektieren
        ListView1.Items.Item(ListView1.Items.Count - 1).EnsureVisible() ' 
        ' Sicherstellen, dass es sichbar ist
        ListView1.HideSelection = False ' Markierung sichtbar machen, zwar 
        ' nicht blau aber immerhin
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus