Build a summary graph of Tests

' Build a summary graph of Tests
    Dim testF As TestFactory
    Dim graph1 As Graph
    Dim aFilter As TDFilter
    Dim fRDate As String
    Set testF = tdc.TestFactory
    Set aFilter = testF.Filter
    Set graph1 = _
    testF.BuildSummaryGraph("TS_STATUS", "TS_STATUS", "", 0, aFilter, False, False)
    Debug.Print graph1.ColCount
    Debug.Print graph1.GraphTotal
    Debug.Print graph1.MaxValue
    Debug.Print graph1.RowCount
    Set BuildTrendGraphOfTests = graph1
Exit Function
    Set BuildTrendGraphOfTests = Nothing
End Function