Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
- If (e.Control And e.Shift) AndAlso e.KeyCode = Keys.C Then
- MessageBox.Show("Ctrl+Shift+C")
- ElseIf e.Control AndAlso e.KeyCode = Keys.C Then
- MessageBox.Show("Ctrl+C detected")
- ElseIf e.Control AndAlso e.KeyCode = Keys.V Then
- MessageBox.Show("Ctrl+V detected")
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement