Duplex Options Example for Visual Basic

Private Sub TestDuplexOptions()
   Dim bEnableDuplex As Boolean
   Dim nDuplexMode As Integer
   Dim nMaxXfer As Integer

   bEnableDuplex = RasterTwain.EnableDuplex
   nDuplexMode = RasterTwain.DuplexMode
   nMaxXfer = RasterTwain.MaxXferCount

   If bEnableDuplex = False Then
      RasterTwain.EnableDuplex = True
      RasterTwain.DuplexMode = L_TWDX_1PASSDUPLEX
   End If

   If nMaxXfer <> 10 Then RasterTwain.MaxXferCount = 10
End Sub