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

Public
	Function Asterisk() As SystemSound
		Dim ret As SystemSound(SND_ALIAS_SYSTEMASTERISK)
		Return ret
	End Function
	Function Beep() As SystemSound
		Dim ret As SystemSound(SND_ALIAS_SYSTEMDEFAULT)
		Return ret
	End Function
	Function Exclamation() As SystemSound
		Dim ret As SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
		Return ret
	End Function
	Function Hand() As SystemSound
		Dim ret As SystemSound(SND_ALIAS_SYSTEMHAND)
		Return ret
	End Function
	Function Question() As SystemSound
		Dim ret As SystemSound(SND_ALIAS_SYSTEMQUESTION)
		Return ret
	End Function
End Class