Hello Guys,

I am not so good at VB , please let me know if this bit of code is correct ! I am trying to find the total number of captions ( Screens ) in the windows application i test .

I need to know the total n.o screens TestPartner has traversed.

Sub ScreenCount()

Dim fmt As TObject

fmt = IEWindow.Caption

Dim Found As Integer

Found = 0 ' Initialize variable.

For Each fmt In IEWindow

Found = Found + 1 ' Set Found to True.

Exit For ' Exit loop.


End Sub

Could anyone please help me out in this !

Any help would be appreciated ....


Using Testpartner 6.3
Evaluating Quick Test Professional 10.0
Automating BI and Business Decisions Application