InitSessionFlags Example for Visual Basic

Private Sub Command2_Click()
   Dim nRet As Integer
   Dim RasterTwain As New LEADRasterTwain
  
   RasterTwain.EnableMethodErrors = False
   RasterTwain.ManName= "LEAD Technologies, Inc." 
   RasterTwain.ProdFamily = "LEAD Twain COM Object"
   RasterTwain.Version= "Version 14.5"
   RasterTwain.AppName= "LEADTools Twain test sample"
   RasterTwain.InitSessionFlags= L_LTWAIN_INIT_MULTI_THREADED
   nRet = RasterTwain.InitSession(hWnd) 
   If (nRet <> 0) Then
      MsgBox "Error Initializing Twain", vbExclamation
   End If
End Sub