' Return the name of the different test case methods in this test container
Public Property Get ITestContainer_TestCaseNames() As Variant()
    ' TODO: add the names of your test methods as a parameter into the Array() function
    ITestContainer_TestCaseNames = Array()
End Property

' Return the name of the different test case methods in this test container
Public Property Get ITestContainer_TestCaseNames() As Variant()
    ' TODO: add the names of your test methods as a parameter into the Array() function
    'ITestContainer_TestCaseNames = Array()
    ITestContainer_TestCaseNames = AutoGetTestCaseNames
End Property

'Auto get testcasenames
'TestCaseName prefix must is "Test_"
Private Function AutoGetTestCaseNames() As Variant()
       Dim TypeLib As Object
       Dim Prop   As Object
       Dim i As Integer
       Dim vHas As Boolean
       Dim v() As Variant
       Set TypeLib = CreateObject("TLI.TLIApplication")
       Set TypeLib = TypeLib.InterfaceInfoFromObject(Me)
       For Each Prop In TypeLib.Members
            If Prop.InvokeKind = INVOKE_FUNC Then
                If UCase(VBA.Left(Prop.Name, 5)) = UCase("Test_") Then
                    If vHas = False Then
                        vHas = True
                        ReDim Preserve v(0)
                    Else
                        ReDim Preserve v(UBound(v) + 1)
                    End If
                    v(UBound(v)) = Prop.Name
                End If
            End If
       Next
       Set TypeLib = Nothing
       Set Prop = Nothing
       On Error GoTo onErrors:
       AutoGetTestCaseNames = v
       Exit Function
onErrors:
       AutoGetTestCaseNames = Array()
End Function

    Public Sub Test_Ver(oTestResult As TestResult)
         With oTestResult
            f.Config App.Path & "\TestMatter\FileClass\ver.exe"
            .Assert f.Ver() = "2.0.0.30", "0001"
            f.Config App.Path & "\TestMatter\FileClass\ver.txt"
            On Error GoTo onErrors
            f.Ver
            .Assert False, "0002"
onErrors:
         End With
    End Sub