Public Class Form1
 
    Dim ctrlTaste As Boolean = False
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
        ListView1.Items.Add("Test")
    End Sub
 
    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.Control Then ctrlTaste = True
 
    End Sub
 
    Private Sub Form1_KeyUp(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        ctrlTaste = False
 
    End Sub
 
 
 
    Private Sub ListView1_DoubleClick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles ListView1.DoubleClick
        If ctrlTaste Then
            MsgBox("Control-Taste gedrückt")
        Else
            MsgBox("Control-Taste nicht gedrückt")
        End If
 
    End Sub
End Class

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]