mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 10:12:16 +00:00
12 lines
385 B
VB.net
12 lines
385 B
VB.net
|
Module CodepointSystem
|
|||
|
|
Public Sub ChangeCP(Addition As Boolean, NeededCP As Integer)
|
|||
|
|
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
|
|||
|
|
If Addition = True Then
|
|||
|
|
TempCP = TempCP + NeededCP
|
|||
|
|
Else
|
|||
|
|
TempCP = TempCP - NeededCP
|
|||
|
|
End If
|
|||
|
|
Strings.ComputerInfo(2) = Convert.ToString(TempCP)
|
|||
|
|
End Sub
|
|||
|
|
End Module
|