Public Function SetGenerics(frm As Form, ctl As Control, Optional subfrm As Control)
Dim strColCnt As Integer, strColWdt As String, strRow As String, strTag As String, strlbl As String
Dim ctrl As Control, lblADD As Label, lstADD As ListBox, lblDELETE As Label, lstDELETE As ListBox
On Error GoTo...