hbmDst = CreateDIBSection(IntPtr.Zero, bmiDst, DIB_RGB_COLORS, pBits, IntPtr.Zero, 0)

Private Type SAFEARRAYBOUND
  cElements As Long
  lLbound As Long
End Type

Private Type SAFEARRAY2D
  cDims As Integer
  fFeatures As Integer
  cbElements As Long
  cLocks As Long
  pvData As Long
  Bounds(0 To 1) As SAFEARRAYBOUND
End Type

Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long

Public Function SFF_writePage(FileHandle As Integer, start As Long, _
 Width As Long, Height As Long, pBits As Long) As Long
...
  Dim ScanLine_lenth As Long
...
  Dim tSA As SAFEARRAY2D
  Dim bDib() As Byte
...

  ScanLine_lenth = ((Width + 15) \ 16) * 2
  ' Get the bits in the from DIB section:
  With tSA
    .cbElements = 1
    .cDims = 2
    .Bounds(0).lLbound = 0
    .Bounds(0).cElements = Height
    .Bounds(1).lLbound = 0
    .Bounds(1).cElements = ScanLine_lenth ' BytesPerScanLine()
    .pvData = pBits
  End With
  CopyMemory ByVal VarPtrArray(bDib()), VarPtr(tSA), 4

  'Modified Huffman
  For y = Height - 1 To 0 Step -1
    For x = 0 To ScanLine_lenth - 1
      For j = 0 To 7
        If ((x * 8 + j + 1) <= Width) Then ' интересует первые 1728 бит
          If ExamineBit(bDib(x, y), 7 - j) Then 'white bit
...

 <StructLayout(LayoutKind.Sequential)>
  Private Structure SAFEARRAYBOUND
    Dim cElements As Integer
    Dim lLbound As Integer
  End Structure

  <StructLayout(LayoutKind.Sequential)>
  Private Structure SAFEARRAY2D
    Dim cDims As Short
    Dim fFeatures As Short
    Dim cbElements As Integer
    Dim cLocks As Integer
    Dim pvData As IntPtr
    Dim Bounds0 As SAFEARRAYBOUND 'Bounds(0 To 1) As SAFEARRAYBOUND
    Dim Bounds1 As SAFEARRAYBOUND
  End Structure

  Public Function SFF_writePage(ByVal FileHandle As Integer, ByVal start As Integer, _
   ByVal Width As Integer, ByVal Height As Integer, ByVal pBits As IntPtr) As Integer
    Dim the_start As Integer
    Dim ScanLine_lenth As Integer
    Dim runlen As Integer
    Dim whiteLines As Integer
    Dim codeline As String 'Scan Line coded using MH
    Dim state As BITSTATE
    Dim tSA As SAFEARRAY2D
    Dim bDib() As Byte '???????
    Dim x As Integer, y As Integer
    Dim j As Integer
    Dim data() As Byte          ' the buffer
    Dim data_lenth As Integer

    data_lenth = 0
    the_start = start
    ScanLine_lenth = ((Width + 15) \ 16) * 2
    ' Get the bits in the from DIB section:
    With tSA
      .cbElements = 1
      .cDims = 2
      .Bounds0.lLbound = 0
      .Bounds0.cElements = Height
      .Bounds1.lLbound = 0
      .Bounds1.cElements = ScanLine_lenth ' BytesPerScanLine()
      .pvData = pBits
    End With
  CopyMemory ByVal VarPtrArray(bDib()), VarPtr(tSA), 4  ?????????

    'Modified Huffman
    whiteLines = 0
    For y = Height - 1 To 0 Step -1
      runlen = 0
      state = BITSTATE.STATE_WHITE
      codeline = ""
      For x = 0 To ScanLine_lenth - 1
        For j = 0 To 7
          If ((x * 8 + j + 1) <= Width) Then ' интересует первые 1728 бит
            If ExamineBit(bDib(x, y), 7 - j) Then 'white bit

    Dim bDib(ScanLine_lenth * Height) As Byte
    Marshal.Copy(pBits, bDib, 0, ScanLine_lenth * Height)

    Dim bDib(ScanLine_lenth * Height) As Byte
    Dim ptr(1) As IntPtr
    Marshal.Copy(pBits, ptr, 0, 1)
    Marshal.Copy(ptr(0), bDib, 0, ScanLine_lenth * Height)

    Dim bDib(ScanLine_lenth * Height) As Byte
    Marshal.Copy(pBits, bDib, 0, ScanLine_lenth * Height)

    'Modified Huffman
    whiteLines = 0
    For y = Height - 1 To 0 Step -1
      runlen = 0
      state = BITSTATE.STATE_WHITE
      codeline = ""
      For x = 0 To ScanLine_lenth - 1
        For j = 0 To 7
          If ((x * 8 + j + 1) <= Width) Then ' интересует первые 1728 бит
            If ExamineBit(bDib(x + y * ScanLine_lenth), 7 - j) Then 'white bit

  Public Declare Function CreateDIBSection Lib "gdi32" ( _
   ByVal hdc As IntPtr, <MarshalAs(UnmanagedType.Struct)> ByRef pBitmapInfo As BITMAPINFO2, _
   ByVal iUsage As Integer, ByRef ppvBits As IntPtr, _
   ByVal hSection As IntPtr, ByVal dwOffset As Integer) As IntPtr

  Private Function generateByte(byteAsStr As String) As Integer
    generateByte = 0
    If Strings.Len(byteAsStr) = 8 Then
      For i As Integer = 1 To 8
        generateByte = generateByte + CInt(Mid(byteAsStr, i, 1)) * (2 ^ (i - 1))
      Next i
    End If
  End Function

  ' The ExamineBit function will return True or False depending on
  ' the value of the nth bit (Bit%) of an integer (Byte%).
  Private Function ExamineBit(ByVal x As Byte, ByVal Bit As Byte) As Boolean
    Select Case x
      Case 255
        ExamineBit = True
      Case 0
        ExamineBit = False
      Case Else
        ' Return the truth state of the 2 to the nth power bit:
        ExamineBit = ((x And 2 ^ Bit) > 0)
    End Select
  End Function

Dim bDib(ScanLine_lenth * Height) As Byte
Marshal.Copy(pBits, bDib, 0, ScanLine_lenth * Height)

  Dim tSA As SAFEARRAY2D
  Dim bDib() As Byte
...

  ScanLine_lenth = ((Width + 15) \ 16) * 2
  ' Get the bits in the from DIB section:
  With tSA
    .cbElements = 1
    .cDims = 2
    .Bounds(0).lLbound = 0
    .Bounds(0).cElements = Height
    .Bounds(1).lLbound = 0
    .Bounds(1).cElements = ScanLine_lenth ' BytesPerScanLine()
    .pvData = pBits
  End With
  CopyMemory ByVal VarPtrArray(bDib()), VarPtr(tSA), 4

           ...bDib(x, y)

      ' Return the truth state of the 2 to the nth power bit:
        ExamineBit = ((x And 2 ^ Bit) > 0)

      byte* p = (byte*)pBits;