Sub SaveMultiFrame(ByVal FileName As String, ByVal toSave() As Bitmap)
        Dim codec As Imaging.ImageCodecInfo = GetImageCodec("image/tiff") 'Tiff 
        ' Format
        Dim params As New Imaging.EncoderParameters(1) 'Arraygröße=1
        params.Param(0) = New Imaging.EncoderParameter( _
          Imaging.Encoder.SaveFlag, Imaging.EncoderValue.MultiFrame) _
          'Multiframe bild
 
        toSave(0).Save(FileName, codec, params) 'Speichert den ersten Frame
 
        'andere Frames
        params.Param(0) = New Imaging.EncoderParameter( _
          Imaging.Encoder.SaveFlag, Imaging.EncoderValue.FrameDimensionPage)
        For x As Integer = 1 To toSave.Length - 1
            toSave(0).SaveAdd(toSave(x), params) 'Speichert die restlichen 
            ' Frames
        Next
 
        'Parameter für die Freigabe
        params.Param(0) = New Imaging.EncoderParameter( _
          Imaging.Encoder.SaveFlag, Imaging.EncoderValue.Flush)
 
        toSave(0).SaveAdd(params)
    End Sub
    Function GetImageCodec(ByVal type As String) As Imaging.ImageCodecInfo
        For Each m_Codec As Imaging.ImageCodecInfo In _
          Imaging.ImageCodecInfo.GetImageEncoders()
            If m_Codec.CodecName.ToLower = type.ToLower Then
                Return m_Codec
            End If
        Next
        Return Nothing
    End Function