I'm trying to generate 6 unique random integers in XB from 0 to 6, I don't want to use the same number twice, what would be the most efficient way of doing that?

This is what I came up with and it's dog slow, it basically gets stuck after the 4th number or 5th number.

100 RANDOMIZE 110 CPC(0)=INT(RND*6) 120 PRINT CPC(0);CPC(1);CPC(2);CPC(3);CPC(4);CPC(5) 130 CPC(1)=INT(RND*6) 140 IF CPC(1)=CPC(0) THEN 130 150 PRINT CPC(0);CPC(1);CPC(2);CPC(3);CPC(4);CPC(5) 160 CPC(2)=INT(RND*6) 170 FOR A=0 TO 1 180 IF CPC(2)=CPC(A) THEN 160 190 NEXT A 200 PRINT CPC(0);CPC(1);CPC(2);CPC(3);CPC(4);CPC(5) 210 CPC(3)=INT(RND*6) 220 FOR A=0 TO 2 230 IF CPC(3)=CPC(A) THEN 210 240 NEXT A 250 PRINT CPC(0);CPC(1);CPC(2);CPC(3);CPC(4);CPC(5) 260 CPC(4)=INT(RND*6) 270 FOR A=0 TO 3 280 IF CPC(4)=CPC(A) THEN 260 290 NEXT A 300 PRINT CPC(0);CPC(1);CPC(2);CPC(3);CPC(4);CPC(5) 310 CPC(5)=INT(RND*6) 320 FOR A=0 TO 4 330 IF CPC(4)=CPC(A) THEN 310 340 NEXT A 350 PRINT CPC(0);CPC(1);CPC(2);CPC(3);CPC(4);CPC(5)

I know there's got to be a better way, but my brain has yet to find it. And my programming 'Fu' is weak