例: SendKeys statement

Sub Click(Source As Button)
' Use Shell to open the Windows Notepad, then WScript.Shell.SendKeys to send
' a note entered by the user to Notepad. The user can continue 
' composing the note and use Notepad to save it as a text file.
	Set wsh = CreateObject("WScript.Shell")
	Dim taskId As Integer, note As String
	note$ = Inputbox("Start your note:")
	taskId% = Shell("notepad.exe", 1)
	wsh.SendKeys note$, True
End Sub