Current Help System: PC-DMIS BASIC (View Core Help)

Example:

' Calculator program included with Microsoft Windows; it then

' uses the SendKeys statement to send keystrokes to add some numbers.

Sub Main ()

Dim I, X, Msg ' Declare variables.

X = Shell("Calc.exe", 1) ' Shell Calculator.

For I = 1 To 5 ' Set up counting loop.

SendKeys I & "{+}", True ' Send keystrokes to Calculator

Next I ' to add each value of I.

AppActivate "Calculator" ' Return focus to Calculator.

SendKeys "%{F4}", True ' Alt+F4 to close Calculator.

End Sub