Comparison Form - code needed to do Form count based on particular record id -

I have a form that allows the user to compare different records from the same table Name (from different external data sources) and then duplicate the view of the forms to show multiple views of the data.
The user can compare two different record id's worth of data.

Project 1= All records where Recid = 1 (total record count = 100)
Project2 = All records where RecID = 2 (total record count = 150)

I want to display the Copy # for each view of the duplicated form, however, Start the count of copy based on the active forms RecID - Say the user Duplicates Recid = 1's form twice and Recid = 2's form four times.  The caption would read:
View 1
"Program1 Open: RecID 1 & Copy#1"
View 2
"Program1 Open: RecID 1 & Copy#2"
and
View 1
P"rogram2 Open: RecID 2 & Copy#1"
View 2
"Program2Open: RecID 2 & Copy#2"
View 3
"Program2Open: RecID 2 & Copy#3"
View 4
"Program2Open: RecID 2 & Copy#4"
As you can see by that attached code I am able to display the count of active forms - but unable to distinuish which Recid pe the count of forms.

Any suggestions, is greatly appreciated.

Thanks,

KStart Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Function OpenAClient2()
    'Purpose:   Open an independent instance of form frmProject2.
    Dim frm As Form
    Dim lngKt As Long
    Dim lngI As Long
     
    'Open a new instance, show it, and set a caption.
    Set frm = New Form_frmProject2
    frm.Visible = True
    
    lngKt = clnClient.Count
    For lngI = 1 To lngKt
        frm.Caption = "Project2 Opened:  " & gAPNo & " - " & "Copy # " & lngI
    Next
    
    'Append it to our collection.
    clnClient.ADD Item:=frm, Key:=CStr(frm.hwnd)
    Set frm = Nothing
End Function