Android Question Randomise image locations

Dim iv as imageview, f, t as int 'f=from, t=to
for i=0 to 10'number of swaps
    f=rnd(0,16) 'gives a number between 1 and 15
    t=rnd(0,16)
    iv=youriv(f)
    youriv(f)=youriv(t)
    youriv(t)=iv
next

Sub Scramble(c) 'This sub creates an array of pairs of numbers, ie, if c = 4, Images Array will be Image1,Image2,Image3,Image4,Image1,Image2,Image3,Image4
For Id = 0 To c
Images = Images & Id & ","
Next c
Images = Images & Images
End Sub
 
Sub RandomSelect
ID=""
Last=StrLength(Images)
Pointer=Rnd(0,Last-1)
Do Until StrAt(Images,Pointer)="," Or Pointer=0
Pointer=Pointer-1
Loop
If Pointer>0 Then Images=StrRemove(Images,Pointer,1)
Do Until StrAt(Images,Pointer)=","
ID=ID&StrAt(Images,Pointer)
Images=StrRemove(Images,Pointer,1)
Loop
If Pointer=0 Then Images=StrRemove(Images,Pointer,1)
Return ID
End Sub

Scramble(49)
Do While StrLength(Images)>1
ImageId=RandomSelect
x=x+1
Control("vPic"&x).Image=ImageId&".jpg"
Control("vText"&x).Text=ImageId
Control("vpic"&x).Mode=cStretchImage
loop