ShiftOS-TheRevival/TerminalApplications/Internal/Com_Lang.vb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Module Com_Lang
    Public LangNum As Integer

    Public Sub Lang()
        LangNum = RawCommand.Substring(5)
        Select Case LangNum
            Case 1
                ' English
                Strings.OnceInfo(9) = 1
            Case 2
                ' Indonesian
                Strings.OnceInfo(9) = 2
        End Select
    End Sub
End Module