Italian Ciclo di immagini

Ciao a tutti stavo creando un'app dove cliccando su un button all'interno di una listview (o imageview) si visualizzano in modo casuale delle immagini.Questa e una parte di codice che mi da errore.

Sub Butgioca_Click
vai
list1.AddSingleLine(b)
list2.AddSingleLine(c)
End Sub

Sub vai
fig.Put(1,"Carta.png")
fig.Put(2,"Carta2.png")
fig.Put(3,"forbici.png")
fig.Put(4,"forbici2.png")
fig.Put(5,"sasso.png")
fig.Put(6,"sasso2.png")
a=Rnd(1,7)
x=Rnd(1,7)
b=fig.Get(a)
c=fig.Get(x)
End Sub
Grazie dell'aiuto