From 6278dd2510d692446e2baf0b079850e3e0250f2e Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Mon, 16 Mar 2015 09:00:19 -0400 Subject: Added more skinning options and new functions to Helper.vb --- ShiftOS/Helper.vb | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'ShiftOS/Helper.vb') diff --git a/ShiftOS/Helper.vb b/ShiftOS/Helper.vb index 167665c..29799eb 100644 --- a/ShiftOS/Helper.vb +++ b/ShiftOS/Helper.vb @@ -6,4 +6,11 @@ Public Sub setCP(points As Integer) 'Set the CP ShiftOSDesktop.codepoints = points End Sub + + Public Sub removeCP(points As Integer) + ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints - points + End Sub + Public Sub playSound(path As String, playMode As AudioPlayMode) + My.Computer.Audio.Play(path, playMode) + End Sub End Class -- cgit v1.2.3