0 Screen capture when checkpoints fail

'=======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

Read more