gaga1 = Import["http://i65.photobucket.com/albums/h231/AlexChivvy/LadyGaGaPoker_Face-1.jpg"];
gaga2 = Import["http://i65.photobucket.com/albums/h231/AlexChivvy/ladygaga-1.jpg"]; 
gaga3 = Import["http://i65.photobucket.com/albums/h231/AlexChivvy/LadyGaga- PokerFace-1.jpg"];
gaga4 = Import["http://i65.photobucket.com/albums/h231/AlexChivvy/LadyGaGaPokerFace-2.jpg"];
gaga5 = Import["http://i65.photobucket.com/albums/h231/AlexChivvy/LadyGaGaPokerFace-1-1.jpg"];
gaga6 = Import["http://www.math.harvard.edu/~knill/gaga/04.wav"];

Manipulate[
 If[r == 1, S = Speak["Cant reed mai, Cant reed mai"]; G = gaga1];
 If[r == 2, S = Speak["No hee Cant reed uh mai"]; G = gaga2];
 If[r == 3, S = Speak["Poeker feis"]; G = gaga3];
 If[r == 4, S = Speak["Shee is gawt mee lyke noebodie"]; G = gaga4];
 If[r == 5, S = Speak["Puh Puh Puh Poeker feis Puh puh Poeker Feis"]; 
  G = gaga5];
 Show[G], {{r, 1, 
   "Poker Face by Lady Mathematica-Mathematica:"}, {1 -> "1", 
   2 -> "2", 3 -> "3", 4 -> "4", 5 -> "5"}}]