mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-02-02 14:27:35 +00:00
16 lines
357 B
VB.net
16 lines
357 B
VB.net
|
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
|