ArrayToImage VB 16 bit data.

Question

I have IMAQ3.3.  (no vision license).    I can collect (via framegrabber) and display  8 bit data and save it via the ImageToArray function.   Then I can read this data back and display it at a later time using the ArrayToImage function.
However,  after saving 16 bit data,  I cannot read it back as 16 bit data.   The ArrayToImage function always truncates it to 8 bit data!!!!   How can I get it to read 16 bit data?      The image it is reading from is an array of 16 bit data.

Answer 1

CWIMAQ 3.3
The following will read data from a file assuming it is 8 bit data.   I assumed if I changed ImageArray and B1 to 16 bit integers it would read as 16 bit data.   Instead....it reads as 16 bit data....then truncates to 8 bit as it puts the data into CWIMAQ1.
I only use this for debug purposes....   We usually collect and run the data live, which works fine.     However, I can save the collected data and "play it back"  to check my software processing.   I need to put it into CWIMAQ1 since this is the structure that it gets when running "live".     When I try to modify the CWIMAQ1 parameters to indicate a 16 bit image I get something like "vision license required".       I can read the image in as 8 bit data and do all the 8 to 16 bit  conversion myself (my fallback which works fine).       I Just wanted to know if this was indeed a "licensing issue"   or if there was something I was missing.
Private Function GetNewImages(ByVal ImageFile As String)
   Dim k As Long
   Dim l As Byte
   Dim ImageArray(4096, 2050) As Byte
   Dim B1 As Byte
   CWIMAQ1.Images.RemoveAll
   CWIMAQ1.Images.Add (mlNumActiveFrames)
   Open ImageFile For Binary As #97
    For k = 1 To mlNumActiveFrames
   For l = 1 To 20
     Get #97, , B1
   Next l
      Get #97, , ImageArray
       If EOF(97) Then
              MsgBox "Error reading " & ImageFile, , " "
              GetNewImages = False
              Exit Function
            End If
      CWIMAQ1.Images.Item(k).ArrayToImage ImageArray
   Next k
   Close #97
   GetNewImages = True
End Function