Public Structure strInfo
        Public fccType As Int32
        Public fccHandler As Int32
        Public dwFlags As Int32
        Public dwCaps As Int32
        Public wPriority As Int16
        Public wLanguage As Int16
        Public dwScale As Int32
        Public dwRate As Int32
        Public dwStart As Int32
        Public dwLength As Int32
        Public dwInitialFrames As Int32
        Public dwSuggestedBufferSize As Int32
        Public dwQuality As Int32
        Public dwSampleSize As Int32
        Public rcFrame As RECT
        Public dwEditCount As Int32
        Public dwFormatChangeCount As Int32
        'MarshalAs(UnmanagedType.ByValArray, SizeConst=64)
        Public szName As UInt16()
    End Structure
    Private Const OF_CREATE As Long = &H1000
    Private Const OF_WRITE As Long = &H1
    Private Declare Function mmioStringToFOURCC Lib "winmm.dll" Alias _
      "mmioStringToFOURCCA" (ByVal sz As String, ByVal uFlags As IntPtr) As _
      Int32
	AVIFileInit()
	AVIFileOpen(aviFile, "C:\Windows\Neuvideo.avi", OF_WRITE Or OF_CREATE, 0)
	Dim vhead As New strInfo
        vhead.fccType = mmioStringToFOURCC("vids", 0)
        vhead.fccHandler = mmioStringToFOURCC("CVID", 0)
        vhead.dwFlags = 0
        vhead.dwCaps = 0
        vhead.wPriority = 0
        vhead.wLanguage = 0
        vhead.dwScale = 1
        vhead.dwRate = IntRate
        vhead.dwStart = 0
        vhead.dwLength = 0
        vhead.dwInitialFrames = 0
        vhead.dwSuggestedBufferSize = frmSize
        vhead.dwQuality = -1
        vhead.dwSampleSize = 0
        vhead.rcFrame.x = 0
        vhead.rcFrame.y = 0
        vhead.rcFrame.h = first.Height
        vhead.rcFrame.w = first.Width
        vhead.dwEditCount = 0
        vhead.dwFormatChangeCount = 0
        vhead.szName = New UInt16(64) {}
        AVIFileCreateStream(aviFile, aviStream, vhead) ' Fehler : 
        ' AccessViolationException

An sich gibt es nie Probleme, nur einen Weg, um sie zu l?sen.