Public Declare Sub DXCopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" ( _
    pDst As Any, _
    pSrc As Any, _
    ByVal dwLen As Long _
)

    Dim x   As New EncoderOGG
    Dim p   As IEncoder
 
    Dim lngBytes  As Long
 
    Set p = x
 
    x.EncoderMode = OV_ENC_QUALITY
    x.Quality = 0.5
 
    If Not p.Init("C:\ausgabe.ogg", 44100, 2, 16, lngBytes) = STREAM_OK Then
        MsgBox "Konnte Encoder nicht initialisieren!", vbExclamation
        Exit Sub
    End If
 
    ' lngBytes gibt an, wie viele Bytes pro
    ' Encode maximal angenommen werden.
    '
    ' p.Encode VarPtr(data(0)), bytes
 
    p.DeInit

http://rm_code.dl.am