' this part in your general decleration
'------- start here ------------
option Explicit
Dim ret3&
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
' shayplace@hotmail.com or visit the home page http://www.hili.com/~shay
'------ end general decleration --------
'place this code in your form
'--------- code start here -------
Private Sub cmdRunCalculator_Click()
' Run any program EXE,COM from here.
ret3& = ShellExecute(Me.hwnd, "Open", "calc.exe", "", App.Path, 1)
End Sub