بازکردن ماشین حساب ویندوز از طریق کد vba

[4017]

اگه در داخل فرم بخوایم بوسیله یه دکمه ماشین حساب ویندوز رو اجرا کنیم از کد زیر استفاده می کنیم

Sub Calculator()
Dim Program As String, TaskID As Double
Program = "calc.exe"
On Error Resume Next
AppActivate "Calculator"
If Err <> 0 Then
Err = 0
TaskID = Shell(Program, 1)
If Err <> 0 Then MsgBox "Can't start " & Program
End If
End Sub 

[mokaram]

از کد زیر هم می تونید استفاده کنید

Sub hesab()
    Application.ActivateMicrosoftApp Index:=0
End Sub 

[managerman]

من این کد تو یه commanbottem تو رویداد click گذاشتم کار نکرد میشه بیشتر توضیح بدین لطفا