palette to match the current DIB colour table
   lC = GetDIBColorTable(m_hDC, 0, 256, tRGB(0))
   Debug.Assert (lC = 256)
   For i = 0 To lC - 1
      LSet m_tBI.bmiColors(i) = tRGB(i)
   Next
   ' Save to BMP with 256 colour palette:
   SavePicture = SaveToBitmap(m_tBI, m_lPtr, sFileName)

End Function
Private Function SaveToBitmap(ByRef tBI As BITMAPINFO256, ByVal lPtrBits As
 Long, ByVal sFileName As String)
Dim tBH As BITMAPFILEHEADER
Dim tRGBQ As RGBQUAD
Dim hFile As Long
Dim lBytesWritten As Long
Dim 