Visual Basic: [code]
Public Sub PlayWav(sFile As String)
If Dir(sFile$) <> "" Then Call playa(sFile, SND_FLAG)
'########## HIER FEHLT EIN "END SUB"!!!!!!!!!!!!!!

und die konstante würd ich über die sub stellen (private const ...)
[/code]

Alter schwede bringe da mal ordnung rein
Visual Basic: [code]
Private Const KeyPressed As Integer = -32767

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Private Declare Function playa Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Public Sub PlayWav(sFile As String)
If Dir(sFile$) <> "" Then Call playa(sFile, SND_FLAG)
End Sub

Private Sub cmd_add_Click()
List1.AddItem (txt_pfad.Text)
End Sub

Private Sub Form_Load()
tmr_read.Interval = 20
tmr_read.Enabled = True
End Sub

Private Sub tmr_read_Timer()
Dim HotKey As Long
HotKey = vbKeyF12

If GetAsyncKeyState(HotKey) = KeyPressed Then
Call PlayWav("C:west.wav")
End If
End Sub[/code]

Black, ehrlich gesagt machst du sowas von sinnloses =)

Lern doch bitte mal basics!
bla, hat dir nicht die Lösung für dein Problem geschrieben, sondern einen Kommentar!

Wenn eine Zeile mit ' anfängt --> kommentar!

Er hat dir einfach hingeschrieben dass da ein End Sub fehlt, hats aber nicht hinzugefügt - klar funktionierts nicht.

Und bisher ist ja wohl recht viel C&P :/

Aber trotzdem, viel Glück mit deinem Projekt