ISISAcquire example for Visual Basic

‘The following example acquires a single image using ISISAcquire.

    Dim nret As Integer
    LEADRasterISIS1.EnableMethodErrors = False
    nret = LEADRasterISIS1.ISISLoadDriver
    If (nret = 0) Then
        nret = LEADRasterISIS1.ISISAcquire (hWnd, LEADRasterView1.Raster, ISIS_SHOWUI, ISIS_BITMAP_LIST_OVERWRITE)
        LEADRasterISIS1.ISISUnloadDriver
    End If
    If (nret <> 0) Then
       If nret <> ERROR_ISIS_CANCEL Then
          MsgBox "Error " & CStr(nret) & "during ISIS Scan!"
       End If
    End If