i=2
set oObj="T" & cstr(i) - Error

    Dim cCon As Control
    iI = 1
    For Each cCon In Form1
        sA = "T" & CStr(iI)
        If cCon.Name = sA Then
            If cCon.UBound > 0 Then
                For iJ = cCon.UBound To 1 Step -1
             iZ = T1.UBound
                    Unload cCon(iJ)
                Next iJ
            End If
            iI = iI + 1
        End If
 
    Next