Dim ProcID As Integer

        ' Start the Notepad application, and store the process id.

        ProcID = Shell("NOTEPAD.EXE", AppWinStyle.NormalFocus)

        ' Activate the Notepad application.

        AppActivate(ProcID)

        ' Send the keystrokes to the Notepad application.

        My.Computer.Keyboard.SendKeys("I ", True)

        My.Computer.Keyboard.SendKeys("♥", True)

        My.Computer.Keyboard.SendKeys(" Visual Basic!", True)