Code: Select all
  VSTwain1.StartDevice()
  VSTwain1.OpenDataSource()
  VSTwain1.Capability = 4382     ' 0x111e
  VSTwain1.CapType = 0           ' One value
  VSTwain1.CapValue = 1          ' TWLP_TRANSMISSIVE
  VSTwain1.SetCap()              ' Set cap value
  VSTwain1.Acquire()