Dim list1 As List
list1.Initialize
list1.Add("Αυτοκίνητο")
list1.Add("Μηχανή")
list1.Add("Φορτηγό")
list1.Add("Λεωφορείο")
list1.Add("ΠΕΙ φορτηγό")
list1.Add("ΠΕΙ Λεωφορείο")
InputListAsync(list1,"Επιλέξτε μια κατηγορία",-1,True)
wait for InputListAsync_Result (result As Int)
If result=-3 Then Return
Starter.questionnumber=""
Starter.redrawstopper=0
isfreetest=True
CallSubDelayed2(Starter,"begintest","type=simulation§ion="&(result+1)&"&category=0&num_of_questions=10&action=start")
ProgressDialogShow2("Παρακαλώ περιμένετε",False)