Class SystemSound
	SoundID As Long

Public
	Sub SystemSound()
		SoundID=SND_ALIAS_SYSTEMDEFAULT
	End Sub
	Sub SystemSound(value As Long)
		SoundID=value
	End Sub
	Sub SystemSound(ByRef ss As SystemSound)
		SoundID=ss.SoundID
	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