This will open the Windows Calculator from ThinBasic.

Uses "OS"



CallBack Function XXXXXXXX() as long
'----------------------------------------------------------------
    Select Case CbMsg
        Case %WM_INITDIALOG
        Case %WM_SIZE
 
        Case %WM_COMMAND
            Select Case CbCtl


Case %open_calc  
                   Dim utility_path As String = "C:\Windows\System32\calc.exe"
                   OS_ShellExecute("open", utility_path, "", "", %OS_WNDSTYLE_NORMAL)

   End Select