Code:
Private Sub slika_DblClick(Cancel As Integer)


  Dim oWIA_DeviceManager As WIA.DeviceManager
  Dim oWIA_Device As WIA.Device
  Dim oWIA_ComDlg As WIA.CommonDialog
  Dim oImageFile As WIA.ImageFile
  Dim i As Long

  Set oWIA_DeviceManager = New WIA.DeviceManager
  
  If oWIA_DeviceManager.DeviceInfos.Count > 0 Then
      Set oWIA_ComDlg = New WIA.CommonDialog
      
      ' Index the Devices property starting here at 1, not 0 .
      For i = 1 To oWIA_DeviceManager.DeviceInfos.Count
          Set oWIA_Device = oWIA_DeviceManager.DeviceInfos.Item(i).Connect
      
          ' Use this to show Acquisition CommonDialog
          Set oImageFile = oWIA_ComDlg.ShowAcquireImage
          
          ' Use this to show Acquisition Wizard
          Set oImageFile = oWIA_ComDlg.ShowAcquisitionWizard(oWIA_Device)

      Next i
  Else
      MsgBox "No WIA compatible device attached!"
  End If
  


End Sub