VB调用及操作计算器

Private Sub Command3_Click()
Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE ", 1)          '   执行小算盘。
AppActivate ReturnValue     '   启动小算盘。
For I = 1 To 100             '   设定回圈执行次数。
SendKeys I & "{+} ", True           '   按下按键给小算盘
Next I     '   将所有   I   值相加。
SendKeys "= ", True       '   取得总和。
Clipboard.Clear   '   清除剪贴簿内容。
SendKeys "^{C} ", True       '   按   CTRL   +C   来复制小算盘计算结果。
Text1.Text = Clipboard.GetText       '   将剪贴簿中之计算结果放到   Text1   中。
SendKeys "%{F4} ", True       '   按   ALT+F4   来结束小算盘。
End Sub