Class SystemSound Const SoundID As Long Public Sub SystemSound(value As Long) SoundID=value End Sub Public Sub Play() PlaySound(SoundID,GetModuleHandle(NULL),SND_ALIAS_ID) End Sub Public Override Function ToString() As String Return "SystemSound" End Function End Class