Ma il codice che usi e' proprio quello?

Ci sono alcuni errori di sintassi di base che dovrebbero bloccare l'esecuzione, a meno che tu non abbia lo "copiato" male sul forum ...

Per esempio, in

(c:\foto1.jpg")

mancano le virgolette iniziali della stringa ...

Il codice dovrebbe essere

codice:
If Val(risultato)=1 Then 
  Text1.Text = "UNO"
  Picture1.Picture = LoadPicture("c:\foto1.jpg")
End If