AnnLoadArray example for Visual Basic

Note: This topic is for Document/Medical only.

Private Sub AnnLoadArray_Click()
   Dim MyVar() As Byte
   Dim nLen As Long
   Dim FileName As String
   Dim AnnFileName As String
   
   FileName = "d:\work\images\a.bmp"
   AnnFileName = "d:\work\images\a.ann"
   
   'Note that this is a sample key, which will not work in your toolkit.
   LEAD1.UnlockSupport L_SUPPORT_DOCUMENT, "TestKey"
    
   LEAD1.Load FileName, 0, 1, 1
   LEAD1.AnnUserMode = ANNUSERMODE_DESIGN
   
   nLen = FileLen(AnnFileName)
   ReDim MyVar(nLen)
   
   Open AnnFileName For Binary Access Read As #1
   Get #1, , MyVar
      
   LEAD1.AnnLoadArray MyVar, nLen, 1
   Close #1
End Sub