Visual Basic > Code Snippets

When the up key is pressed , notepad will open

When the up key is pressed , notepad will open

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim keyPress As Double
If KeyCode = vbKeyUp Then
keyPress = Shell("notepad.exe", vbNormalFocus)
End If
End Sub