InitSession 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"
nRet = RasterTwain.InitSession(hWnd)
If (nRet <> 0) Then
	MsgBox "Error Initializing Twain", vbExclamation
End If