source: branch/egtra-gdiplus/Classes/System/Media/SystemSounds.ab

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

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