Opening Windows Calculator

[DeepBlerg]

Hi,

I want to open up windows calculator from my form instead of making one so i created a new module and put this code in:
Sub LoadEXE(Dir As String)
X% = Shell(Dir, 1): NoFreeze% = DoEvents(): Exit Sub
End Sub

and attached this code to a button on the form:
Private Sub cmdCalculator_Click()
LoadEXE "C:\WINDOWS\calc.exe"
End Sub

and when i try it, the form opens the calculator but this error box pops up saying:
Run-time error '6':
Overflow

Anyone know what I'm doing wrong?

Thanks....

 

[Hackster]

X is being used as an integer and in the 32bit operating envirnoment, you can't shell a 32bit app with an integer. Change X to a Long and it should work fine, i.e., Dim X as Long
X = Shell(yada yada yada)

 

[NevG]

Or why not just type

Shell "C:\Calc.exe"

and this will do exactly the same thing and give no errors

It works for me at least

 

[BlackKnight]

Hi,

Generally, you would want to evaluate the program's task id which is returned by the shell function as opposed to using the shell statement.

Have a good one!
BK