Trying to get subreport to print all pictures in a specified folder

I have the following code in an onformat event of a subreport which works fine to print the primary picture file as defined in the record table in an existing report.   But if the specified folder has more than one picture file in it I want the report to print all of the pictures in the subreport for a new report.

Here is the code which is working fine for the current report.  What do I have to do to it to make the new subreport print all of the pictures?

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    
    Dim strClientFolderName As String
    Dim strPropertyAssetFolderName As String
    Dim strPropertyFolderName As String

    strClientFolderName = TempVars!strPicturesDataPath & "\" & Trim(Me.txtClientTableID) & "\"
    strPropertyFolderName = strClientFolderName & Trim(Me.txtPropertyTableID) & "\"
    strPropertyAssetFolderName = strPropertyFolderName & Trim(Me.txtManualAssetN)

    Me.AssetImage.Picture = strPropertyAssetFolderName & "\" & Me.PrimaryPictureFile

End Sub

Select allOpen in new window