AcquireSourceName Example for Visual Basic

Private Sub SetSource(sourceName As String)
	Dim RasterTwain As New LEADRasterTwain_U
	Dim nRet As Integer

	RasterTwain.InitSession hWnd
	RasterTwain.sourceName = sourceName
	nRet = RasterTwain.Acquire(L_LTWAIN_SHOW_USER_INTERFACE)
	If nRet <> 0 Then
	MsgBox "Error acquiring from source"
End Sub