Private Sub Command1_Click()
Dim I As Integer
Dim Jh As String
'===
Shell "calc.exe",1
For I = 1 To 9
SendKeys Replace("{" & Str(I) & "}"," ","")
SendKeys "{+}"
Next
End Sub


Private Sub Command2_Click()
Dim k As Integer,sum As Integer
For k = 1 To 9
sum = sum + k
Next
MsgBox sum
End Sub