SlideView[Table[ContourPlot[y^2==x^3+i x,{x,-3,3},{y,-3,3}],{i,-2,2}]]

SlideView[Tooltip[CountryData[#,"Flag"],#]&/@CountryData["Europe"]]