GetCapability2 Example for Visual Basic

Dim RasterTwain As New LEADRasterTwain_U
Dim TwainCap As New LEADTwainCapability_U
Dim iRet As Integer

RasterTwain.InitSession hWnd
RasterTwain.SelectSource

TwainCap.CapInfo.ConType = L_TWON_DONTCARE16
TwainCap.CapInfo.Capability = L_ICAP_UNITS
iRet = RasterTwain.GetCapability2(TwainCap, L_LTWAIN_CAPABILITY_GETCURRENT)
If (iRet <> 0) Then
	MsgBox "Error Getting Capability"
End If

Set TwainCap = Nothing