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

'-------------------------------------
Public tlCancel
Public tlOK As String
Public tlClose As String
Public tlApply As String
Public tlYes As String
Public tlNo As String
Public tlAbort As String
Public tlRetry As String
Public tlValidate As String
Public tlMessage As String
'-------------------------------------
Public tlNoUserRecorded As String
Public tlServicesCount As String
Public tlUserCount As String
'-------------------------------------

Public ACTUALLANGUAGE As MONIERLANGUAGE

Public Function Translate(ByVal MLANGUAGE As MONIERLANGUAGE)
    Select Case MLANGUAGE
    
        Case ML_MALAGASY
        '-------------------------------------
            tlCancel = "Aoka ihany"
            tlOK = "OK"
            tlClose = "Hidina"
            tlApply = "Ampiharina"
            tlAbort = "Ajanona"
            tlRetry = "Averina"
            tlYes = "Eny"
            tlNo = "Tsia"
            tlValidate = "Ekena"
            tlMessage = "Hafatra"
        '-------------------------------------
        '-------------------------------------
        
        Case ML_FRANCAIS
        '-------------------------------------
            tlCancel = "Annuler"
            tlOK = "OK"
            tlClose = "Fermer"
            tlApply = "Appliquer"
            tlAbort = "Abondonner"
            tlRetry = "Réessayer"
            tlYes = "Oui"
            tlNo = "Non"
            tlValidate = "Valider"
            tlMessage = "Message"
        '-------------------------------------
            tlNoUserRecorded = "Aucun utilisateur n'enregistré pour le moment!"
            tlServicesCount = "Nombre de Serices"
            tlUserCount = "Nombre d'Utilisateurs"
        '-------------------------------------
        
        Case ML_ENGLISH
        '-------------------------------------
            tlCancel = "Cancel"
            tlOK = "OK"
            tlClose = "Close"
            tlApply = "Apply"
            tlAbort = "Abort"
            tlRetry = "Retry"
            tlYes = "Yes"
            tlNo = "No"
            tlValidate = "Validate"
            tlMessage = "Message"
        '-------------------------------------
        '-------------------------------------
            
    End Select
End Function
