Namespace System
Namespace Media


Class SystemSound
Protected
	SoundID As Long

Public
	Sub SystemSound()
		SoundID=SND_ALIAS_SYSTEMDEFAULT
	End Sub

Public
	Sub Play()
		PlaySound(SoundID As LPCTSTR, GetModuleHandle(NULL), SND_ALIAS_ID)
	End Sub

Public
	Override Function ToString() As String
		Return "SystemSound"
	End Function
End Class


Namespace Detail

Class _System_SystemSound
	Inherits SystemSound
Public
	Sub _System_SystemSound( id As Long)
		SoundID = id
	End Sub
End Class

End Namespace


End Namespace
End Namespace