How to take ScreenShot in QTP

Public Function ScreenShotError
Dim path_error_file
Error_file_Path=Pathfinder.Locate(”ABC”) & rnd & “.png”
ScreenShot=path_error_file
Browser(”Browser”).Page(”Page”).CaptureBitmap Error_file_Path,True
End Function

ScreenShotError