Rem Lgg till
Private Declare Function mciGetErrorString Lib "winmm" Alias _
    "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, _
    ByVal uLength As Long) As Long


Function GetMCIErrorString(ErrorCode As Long) As String
' Task:Get the description of a MCI error.
' ErrorCode is the code of the error
' Return a string with the description of the error.
Dim buffer As String * 256
mciGetErrorString ErrorCode, buffer, Len(buffer)
GetMCIErrorString = Left$(buffer, InStr(buffer, vbNullChar) - 1)
End Function



Rem I denna rutin :Private Sub Ju1_Click()
Rem Remove this
'If Counter > 11 Then Counter = 0


Rem i rutinen Sub StartPlay()
Rem lgg till efter error:
'MsgBox GetMCIErrorString(Err)
