Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Shell "Calc.EXE", 1
If Check1.Value = 1 Then
SendKeys "{1}", True
Sleep 1000
End If
If Check2.Value = 1 Then
SendKeys "{2}", True
Sleep 1000
End If
End Sub