1: 2: 3: 4: 5: 6:
'For iCount = 1 To iFields + 2 Step 2 ' ifv = fncGetFieldValue(iCount) ' frm = fncGetFormString ' ctl = fncGetFieldString(iCount) ' Forms(frm).Controls(ctl).Value = Me.ListBox_SiteListView.Column(ifv, iIndex) 'Next iCount