InitSessionFlags Example for Visual Basic

Dim RasterTwain As New LEADRasterTwain_U
Dim nRet As Integer

RasterTwain.EnableMethodErrors = False
RasterTwain.ManName = "LEAD Technologies, Inc."
RasterTwain.ProdFamily = "LEAD Twain COM Object"
RasterTwain.Version = "Version 16"
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