Dick, would it be a lot of trouble to make the American National Anthem play when displaying the flag?
First, go to the Embassy of the United States of America in Stockholm, Sweden’s website and download their wav file of the national anthem.
With a little modification, the code looks like this:
Alias “PlaySoundA” (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Sub PlayWAV(ByVal sWav As String)
Call PlaySound(sWav, 0&, SND_ASYNC Or SND_FILENAME)
and add this to the fly the flag code
Don’t forget to declare sWav in your code. Or you can just download the file