CodeItBetter Programming Another VB Programming Blog

'Coding Basics - Sendkeys example
Private Sub Command1_Click()
    Dim i As Integer
    Dim retval As Double
    retval = Shell("notepad", vbNormalFocus)
    AppActivate retval
    For i = 0 To 1000
        SendKeys i & " ", True
    Next i
End Sub