Option Strict Off
Option Explicit On
Friend Class Form1
	Inherits System.Windows.Forms.Form

    Private Sub Command1_Click(ByVal eventSender As System.Object, _
                               ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Dim lnghWnd As Integer 'トップレベル（親）のウィンドウハンドル
        Dim lnghWndTarget As Integer 'ターゲット（子）のウィンドウハンドル
        Dim lngRc As Integer 'APIの返却値

        '-------------------------------------
        ' メモ帳を起動
        '-------------------------------------
        lngRc = Shell(Environ("WINDIR") & "\NOTEPAD.EXE", AppWinStyle.NormalFocus) '起動
        System.Threading.Thread.Sleep(100) '0.1秒待つ（起動完了）

        '-------------------------------------
        ' １文字ずつ送信　50ミリ(0.05)秒間隔
        '-------------------------------------
        Dim strDt As String
        Dim i As Integer

        For i = 1 To Len(Text1.Text)            '文字数分繰り返す
            strDt = Mid(Text1.Text, i, 1)       '１文字
            SendKeys.SendWait(strDt)            '1文字送信
            System.Threading.Thread.Sleep(50) '指定ミリ秒待つ
        Next i

        '-------------------------------
        ' 全ての文字を一度に送信する場合は
        ' 下記のようにする。
        '-------------------------------
        'SendKeys.SendWait(Text1.Text)


    End Sub
	
	
    Private Sub Form1_Load(ByVal eventSender As System.Object, _
                           ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        Text1.Text = "SendKeys を使った「メモ帳」への入力" & vbCrLf & _
                    "1文字0.1秒" & vbCrLf & vbCrLf & "寿限無､寿限無" & vbCrLf & _
                    "五劫の擦り切れ" & vbCrLf & "海砂利水魚の" & vbCrLf & _
                    "水行末 雲来末 風来末" & vbCrLf & "食う寝る処に住む処" & vbCrLf & _
                    "やぶら小路の藪柑子" & vbCrLf & "パイポパイポ パイポのシューリンガン" & vbCrLf & _
                    "シューリンガンのグーリンダイ" & vbCrLf & _
                    "グーリンダイのポンポコピーのポンポコナーの" & vbCrLf & "長久命の長助"
    End Sub
	
    Private Sub Form1_FormClosing(ByVal eventSender As System.Object, _
                                  ByVal eventArgs As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim Cancel As Boolean = eventArgs.Cancel
        Dim UnloadMode As System.Windows.Forms.CloseReason = eventArgs.CloseReason
        End
        eventArgs.Cancel = Cancel
    End Sub
End Class