Screen capture when checkpoints fail

By 44frames on

'=======This code minimizes the QTP
sTitleMask = "QuickTest Professional - .*"
Window("regexpwndtitle:=" & sTitleMask).Minimize

'=======Checkpoint code
chk_txt_Acc=Browser("Xyz::Xyz").Page("Xyz::Xyz").Check(CheckPoint("Xyz::Xyz"))

If chk_txt_Acc=false Then
Browser("Xyz::Xyz").Page("Xyz::Xyz").CaptureBitmap "c:\z_scrn_cap_Accounts.bmp",True
Msgbox "Screen Captured!"
End If