CTRL + DblClick

ou peut etre un truc comme ca :

Code:

1
2
3
4
5
Private Sub Label1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
        If (a) Then
            MsgBox("ok")
        End If
    End Sub

Code:

1
2
3
4
5
6
7
8
     Dim a As Boolean = True
   Private Sub Forms_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Forms.KeyPress
        '
        ' if e.Keychar == CTRL Then
        '        
        a = true
        'End if
    End Sub

Code:

1
2
3
    Private Sub Forms_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Forms.KeyUp
        a = False
    End Sub

Le probleme vient de recuperer l ascii de CTRL,

sinon, y doit y avoir plus simple ...