Sub MenuBar_Action
Dim mi As MenuItem = Sender
If mi.Text = "Exporter le code" Then
GestionCode.exporterCode
End If
If mi.Text = "Sauvegarder" Then
Dim chemin As String = DirUserDefault
Dim m As Map
m.Initialize
m.put("matiere",TabPaneMatiere)
File.WriteMap(chemin,"saveTi2",m)
End If
End Sub