SaveArray example for Visual Basic

Private Sub SaveArray_Click()
   Dim MyVar As Variant
   Dim lSize As Long
   MyVar = LEAD1.SaveArray(FILE_CMP, 0, 2)
   lSize = LEAD1.ArraySize(MyVar)
   Open "c:\i\1.jpg" For Binary Access Write As #1
      Put #1, 1, MyVar
   Close #1
End Sub