LoadArray example for Visual Basic

Command1_Click()
   Dim buf(20000) As Byte
   Dim count As Integer
   
   Open "c:\Test.JPG" For Binary Access Read As #1
      Get #1, , buf
      LEAD1.LoadArray buf, 0, 0, -1, UBound(buf) - LBound(buf) + 1
   Close #1
End Sub