Sounds Property Example

This example displays and animates the Office Assistant and allows sound.

With Assistant
    .Visible = True
    .On = True
    If Not Sounds Then Sounds = True
    .Animation = msoAnimationGreeting
End With