If e.Button = MouseButtons.Right Then
            If Not ListView1.GetItemAt(e.X, e.Y) Is Nothing Then
                ListView1.GetItemAt(e.X, e.Y).Selected = True
                Kontextmenu1.Show(CType(sender, ListView), New Point(e.X, e.Y))
            End If
        End If