Attribute VB_Name = "Translation"
Option Explicit
Public Enum MONIERLANGUAGE
    ML_MALAGASY
    ML_FRANCAIS
    ML_ENGLISH
End Enum

Public tlStart As String
Public tlStop As String
Public tlSettings As String
Public tlQuit As String
Public tlAreYouSure As String
Public tlTimeUp As String

Public tlElitePlayers As String
Public tlPicture As String
Public tlClose As String
Public tlBackGround As String
Public tlFloor As String
Public tlAllSupportedFormats As String
Public tlChoosePicture As String
Public tlLevel As String
Public tlChooseLevel As String
Public tlCredits As String
Public tlChoose As String
Public tlLanguage As String
Public tlMalagasy As String
Public tlFrancais As String
Public tlEnglish As String
Public tlHelp As String
Public tlWinner As String
Public tlTime As String

Public tlHelpNotFound As String

Public Sub Translate(ByVal tLanguage As MONIERLANGUAGE)
    Select Case tLanguage
        Case ML_ENGLISH
            tlStart = "&Start"
            tlStop = "Sto&p"
            tlSettings = "Se&ttings"
            tlQuit = "&Quit"
            tlAreYouSure = "Are you sure?"
            tlElitePlayers = "Elite players"
            tlPicture = "Pictures"
            tlClose = "&Close"
            tlBackGround = "Background"
            tlFloor = "Floor"
            tlAllSupportedFormats = "All supported formats"
            tlChoosePicture = "Choose picture"
            tlLevel = "Level"
            tlChooseLevel = "ChooseLevel"
            tlCredits = "Credits"
            tlChoose = "Choose"
            tlLanguage = "Language"
            tlMalagasy = "Malagasy"
            tlFrancais = "French"
            tlEnglish = "English"
            tlHelp = "Help"
            tlWinner = "Winner"
            tlTime = "Time"
            tlTimeUp = "Time up"
            tlHelpNotFound = "This section is not available!"
        
        Case ML_FRANCAIS
            tlStart = "&Commencer"
            tlStop = "Sto&p"
            tlSettings = "Con&figuration"
            tlQuit = "&Quitter"
            tlAreYouSure = "En êtes-vous certain?"
            tlElitePlayers = "Joueurs élites"
            tlPicture = "Images"
            tlClose = "&Fermer"
            tlBackGround = "Arrière-plan"
            tlFloor = "Etage"
            tlAllSupportedFormats = "Tous les formats supportés"
            tlChoosePicture = "Choisir une image"
            tlLevel = "Niveau"
            tlChooseLevel = "Choisir un niveau"
            tlCredits = "Crédits"
            tlChoose = "Choisir"
            tlLanguage = "Langue"
            tlMalagasy = "Malagasy"
            tlFrancais = "Français"
            tlEnglish = "Anglais"
            tlHelp = "Aide"
            tlWinner = "Vainqueur"
            tlTime = "Temps"
            tlTimeUp = "Temps écoulé"
            tlHelpNotFound = "Impossible d'accéder à cette section"
        
        Case ML_MALAGASY
            tlStart = "&Atomboka"
            tlStop = "&Faranana"
            tlSettings = "Fan&drindrana"
            tlQuit = "&Hidina"
            tlAreYouSure = "Tena tianao hidina tokoa ve?"
            tlElitePlayers = "Mpilalao mahay"
            tlPicture = "Sary"
            tlClose = "&Hakatona"
            tlBackGround = "Rindrina"
            tlFloor = "Rihana"
            tlAllSupportedFormats = "Ireo karazan-tsary zaka rehetra"
            tlChoosePicture = "Misafidiana sary iray"
            tlLevel = "Lentam-pilalaovana"
            tlChooseLevel = "Hahavony"
            tlCredits = "Mpanoratra"
            tlChoose = "Safidiana"
            tlLanguage = "Tenim-pirenena"
            tlMalagasy = "Malagasy"
            tlFrancais = "Frantsay"
            tlEnglish = "Anglisy"
            tlHelp = "Fanampiana"
            tlWinner = "Mpandresy"
            tlTime = "Fotoana"
            tlTimeUp = "Tapitra ny fotoana"
            tlHelpNotFound = "Tsy hita ny misy io fanazavana io"
            
    End Select
End Sub
