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