Private Sub lstInseln_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles lstInseln.MouseMove
        Dim lvi As ListViewItem = lstInseln.GetItemAt(e.X, e.Y)
        If Not (lvi Is Nothing) AndAlso Not (lvi Is last_lvi) Then
            Dim g As Graphics = Graphics.FromHwnd(lstInseln.Handle)
            If Not (last_lvi Is Nothing) Then
                'g.DrawRectangle(New Pen(Color.FromArgb(236, 233, 216), 1), 
                ' last_lvi.Bounds)
                last_lvi.BackColor = Color.FromArgb(236, 233, 216)
            End If
            last_lvi = lvi
            lvi.BackColor = Color.FromArgb(49, 106, 197)
            'g.DrawRectangle(New Pen(Color.FromArgb(49, 106, 197), 1), 
            ' lvi.Bounds)
        End If
    End Sub