mFile."
Dim b() As Byte
Dim lSize As Long
Dim iFile As Long
Dim lStart As Long
Dim i As Long
Dim hIcon As Long
Dim lHDC As Long
Dim sKeys As String
Dim lVersion As Long
      
   lVersion = (App.Major And &amp;H7FFF&amp;) * &amp;H10000 + App.Minor

On Error GoTo SaveToFileError
   
   ' Saves the image data to a file:

   If (m_hIml &lt;&gt; 0) Then
      ReDim b(0 To 16384# * ImageCount) As Byte
      
      lHDC = CreateDCAsNull("DISPLAY", ByVal 0&amp;, ByVal 0&amp;, ByVal 0&amp;)
      For i = 1 To Image