FamilyName Example for Visual Basic

Dim RasterTwain As New LEADRasterTwain_U

RasterTwain.InitSession hWnd
RasterTwain.SelectSource

Dim strBuffer As String
Dim lCount As Long
Dim n As Integer

lCount = RasterTwain.SourceCount
For n = 0 To lCount - 1 Step 1
	strBuffer = "Source Name = " + RasterTwain.SourceName(n) + Chr(13) + _
               "Product Family Name = " + RasterTwain.FamilyName(n) + Chr(13) + _
               "Manufacturer Name = " + RasterTwain.ManufacturerName(n) + Chr(13)

	MsgBox strBuffer
Next n