Visual Basic - problema con codigo

mi problema es el siguiente, estoy creando un juego con adventure maker que usa vb6 :
tengo una variable llamada "contador"

y lo que quiero es que cuente cada trofeo que va encontrando en mi avnetura grafica ok:

en cada objeto que quiero que sume añado esto:


contador = counter + 1

ok ahora tengo otra paguina donde quiero que salga el total de esta suma:

Text(1) = "Numero de objetos encontrados: " & counter

lo que quiero saber es que tengo que hacer para si el total de la suma no supera dos aparezca una imagen llamada "bronce.gif" si no supera 4 aparezca una imagen llamada "plata.gif" y si no supera seis aparacezca una imagen llamada "oro.gif". gracias de antemano.

Usa la funcion LoadPicture
Select Case Counter
case<3
Picture1.Picture = LoadPicture("bronce.gif"),
case <5
Picture1.Picture = LoadPicture("plata.gif")
case <7
Picture1.Picture = LoadPicture("oro.gif")
end select

Al nombre del Gif se le debe añadir el camino