Может есть макрос или как то еще?

Совет:
Кто то спрашивал про воспроизведение wav - файлов.
Пример функции и ее вызов.

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszSoundName As String, _
ByVal hMod As Long, ByVal uFlags As Long) As Long

Public Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Public Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier
Public Const SND_ALIAS_START = 0 ' must be greather Then 4096 to keep strings in same section of resource file
Public Const SND_APPLICATION = &H80 ' look For application specific association
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_FILENAME = &H20000 ' name is a file name
Public Const SND_LOOP = &H8 ' loop the sound Until Next sndPlaySound
Public Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Public Const SND_NODEFAULT = &H2 ' silence Not default, If sound Not found
Public Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Public Const SND_NOWAIT = &H2000 ' don't wait If the driver is busy
Public Const SND_PURGE = &H40 ' purge non-static events For task
Public Const SND_RESERVED = &HFF000000 ' In</font> particular these flags are reserved
Public Const SND_RESOURCE = &H40004 ' name is a resource name Or atom
Public Const SND_SYNC = &H0 ' play synchronously (default)
Public Const SND_TYPE_MASK = &H170007
Public Const SND_VALID = &H1F ' valid flags / ;Internal /
Public Const SND_VALIDFLAGS = &H17201F ' Set of valid flag bits. Anything outside

Public Sub WavSound()
Call PlaySound("C:\sound.wav", 0&, SND_SYNC Or SND_FILENAME)
End Sub

Вот еще не подобрал события такого, чтобы форма открывалась, не дожидаясь, когда полностью будет исполнена Песня.wav

===============

вместо snd_sync ---> snd_async (-) ДиД
использование snd_async заставляет найти звук, начать его воспроизведение и сразу же передать управление приложению.Такой оператор воспроизводит звук асинхронно, позволяя пользователю одновременно продолжать работать с программой.

В Visual Basic я ноль - не учили. Смотрю на код и страшно. Попробую тупо копировать.

Пока не получается выскакивает ошибка. Не пропущена ли строка End Function-хотя пробовал вставлять-результат тот-же. и дико извиняюсь, но что значит-кнопочку с ВЫЗОВОМ?