In[]:=
DynamicModule[{stack,slide},​​stack:=(​​wd=RandomWord[3];​​no=RandomInteger[100,3];​​co=RandomColor[3];​​​​Table[​​Style[Row[{wd[[i]],no[[i]],co[[i]]},Spacer[6]],36],​​{i,3}]​​);​​slide=Dynamic[Ceiling[Clock[3,12]]];​​​​Framed[​​PaneSelector[{​​1->stack[[1]],​​2->stack[[2]],​​3->stack[[3]]​​},slide,Alignment->Center,ImageSize->540],​​FrameMargins->40,RoundingRadius->5]​​]