QTP launch error

[himanshu1178]

Hi
Am not able to launch QTP using the script as after runing the below mentioned code through a vbs file, QTP appears for a flash of a second and then it disappears.

CODE ::
---------------------------------------------------------------

Code:

Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.WindowState = "Maximized" ' Maximize the QuickTest window
App.ActivateView "ExpertView" ' Display the Expert View

---------------------------------------------------------------

qtp process exists in the "Processes" tab of the task manager but it does not appears in the "Applcations" tab.

Am using QTP 10.0 and Windows 7

please suggest . . . .

thanks
Hims