SoloCodigo

hola amigos.. estoy manejando matrices de 2 controles label y textbox, las dibujo con el siguiente codigo y todo supero bien .... les presento el codigo:
Dim materia, idmateria
    Dim a
    Dim i As Long
    SqlnumMat = "SELECT count(*)as NumMat FROM Materias where IdGpo='" & IdGpo & "'"
    Call OnRs(rsnumMat, SqlnumMat)
        numMate = rsnumMat.Fields("NumMat")
        'MsgBox numMate
       
    SqlMat = "SELECT * FROM Materias where IdGpo='" & IdGpo & "'"
    Call OnRs(rsMat, SqlMat)
    Do While Not rsMat.EOF
        materia = rsMat.Fields("NombreMat")
        idmateria = rsMat.Fields("IdMateria")
            i = Label2.Count
            Load Label2(i)
            With Label2(i)
                .Top = Label2(i - 1).Top + 390
                .Caption = materia
                .Visible = True
            End With
           i = Label4.Count
            Load Label4(i)
            With Label4(i)
                .Top = Label4(i - 1).Top + 390
                .Caption = idmateria
                .Visible = True
            End With
         
   
        i = txtCali.Count
        Load txtCali(i)
        With txtCali(i)
            .Top = txtCali(i - 1).Top + 390
            .Visible = True
        End With
       
    rsMat.MoveNext
    Loop


lo ke kiero es ke con un boton me borre todo la matriz de controles ke se creo y comenzar una nueva....

espero me ayuden
gracias

Muchisimas graacias F_Tanori en realidad me has sacado de un hoyo.. te lo agradezco....

me funciono perfectamente