(* ::Package:: *) tv[list1_]:=Module[{l,r,i}, l={}; For[i=1,i<=(Length[list1]/2),i++, AppendTo[l,list1[[2i-1]]->list1[[2i]]] ]; r=TabView[l]; r ];