• Home
 · 
• Windows System Services
 · 
• 'open notepad by pressing the up arrow key, silly but works.

'open notepad by pressing the up arrow key, silly but works.

'open notepad by pressing the up arrow key, silly but works.

Rate 'open notepad by pressing the up arrow key, silly but works.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim v_ms As Double
If KeyCode = vbKeyUp Then
MsgBox "Notedpad is now opening, click ok", vbOKOnly, "Notepad"
v_ms = Shell("notepad.exe", vbNormalFocus)
End If
End Sub