codice:
     Dim Nums as integer = {1 , 3 ,.................}
     For i=0 to maxdim  
        For z=0 to Nums.Lenght -1
             if i=Nums(z) then goto 20
        Next
        For j=0 to maxdim 
             For K=0 to Nums.Lenght -1
                  if j=Nums(K) then goto 10
             Next
        A2(i,j)=A1(i,j)  
10     Next
20  Next
non lo ho provato, ma a lume di naso dovrebbe funzionare.... sempre se ho capito il problema

bye