Public Structure FSOUND_REVERB_PROPERTIES
        ' MIN     MAX    DEFAULT DESCRIPTION
    Environment         As Long     ' 0       25     0       sets all listener 
    ' properties
    EnvSize             As Single   ' 1.0     100.0  7.5     environment size 
    ' in meters
    EnvDiffusion        As Single   ' 0.0     1.0    1.0     environment 
    ' diffusion
 [...]
    Diffusion           As Single   ' 0.0     100.0  100.0   Value that 
    ' controls the echo density in the late reverberation decay. (xbox only)
    Density             As Single   ' 0.0     100.0  100.0   Value that 
    ' controls the modal density in the late reverberation decay (xbox only)
    flags               As Long     '                        modifies the 
    ' behavior of above properties
    End Structure

Public Declare Function FMUSIC_FreeSong Lib "fmod.dll" Alias _
  "_FMUSIC_FreeSong@4" (ByVal module As Long) As Byte
Public Declare Function FMUSIC_PlaySong Lib "fmod.dll" Alias _
"_FMUSIC_PlaySong@4" (ByVal module As Long) As Byte
Public Declare Function FMUSIC_StopSong Lib "fmod.dll" Alias _
"_FMUSIC_StopSong@4" (ByVal module As Long) As Byte
    Public Declare Function FMUSIC_StopAllSongs Lib "fmod.dll" Alias _
    "_FMUSIC_StopAllSongs@0" () As Long

Public Function GetStringFromPointer(ByVal lpString As Long) As String
        Dim NullCharPos As Long
        Dim szBuffer As String
 
    szBuffer = String(255, 0)         'Hier bei String:String ist ein 
    ' Klassentyp und daher kein gültiger ausdruck
        ConvCStringToVBString(szBuffer, lpString)
        ' Look for the null char ending the C string
        NullCharPos = InStr(szBuffer, vbNullChar)
        GetStringFromPointer = Left(szBuffer, NullCharPos - 1)
    End Function

Public Function GetSingleFromPointer(ByVal lpSingle As Long) As Single
        'A Single is 4 bytes, so we copy 4 bytes
CopyMemory GetSingleFromPointer, ByVal lpSingle, 4           _
  'Hier: GetSingleFromPointer:    Methodenargumente müssen in Klammern 
' stehen; und ByVal: Erwartet: Ausdruck
                                                            'Ich habe schon 
                                                            ' haufen 
                                                            ' Klammersetzungen 
                                                            ' ausprobiert, aber 
                                                            ' keine war richtig.
    End Function