Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
   Handles MyBase.Load
        Shell("notepad.exe", AppWinStyle.NormalFocus)
        SendKeys.Send("Hallo Welt")
End Sub
 
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.F10 Then
            ' tue was
        End If
End Sub