fenster1 = CreateWindow ("Englisch ( VT )",200,100,300,300,0,1)
label = CreateLabel ("Welche Übung wollen sie machen ??",45,5,200,15,fenster1)
Combobox = CreateComboBox(35,35,200,200,fenster1)
AddGadgetItem combobox, "Englisch - Deutsch",1
AddGadgetItem combobox, "Deutsch - Englisch"
Button = CreateButton ("Weiter", 80,70,100,20,fenster1,1)
menu10 = CreateMenu ("Datei", 10,WindowMenu(fenster1))
menu11 = CreateMenu ("Gehe zu", 11, menu10)
menu12 = CreateMenu ("Hauptmenu", 12, menu11)
menu19 = CreateMenu ("Beenden     F12",19,menu10)

menu30 = CreateMenu ("Hilfe", 30,WindowMenu(fenster1))
menu31 = CreateMenu ("Hilfe anzeigen    F1",31,menu30)
menu32 = CreateMenu ("Über VCT ...", 32,menu30)
UpdateWindowMenu fenster1

Repeat
 er = WaitEvent()
 If er = $803 Then End
 If er = $1001 Then
  Select EventData()
   Case 19
    End
   Case 12
    FreeGadget fenster1
    Include "Hauptmenu.bb"
   Case 31
    RuntimeError "Datei $088 fehlt."
   Case 32
    Notify "Nicht möglich"
  End Select
  UpdateWindowMenu fenster1
  EndIf
 If er = $401 And EventSource() = Button Then
  If SelectedGadgetItem(combobox) = 0 Then Goto Scan
  If SelectedGadgetItem(combobox) = 1 Then Goto scan2
EndIf
Forever
.scan
End

.scan2
End