REDIMENSIONAR IMAGEN

Private Shared Function ImageResize(IMG As System.Drawing.Image, newW As Integer, newH As Integer) As System.Drawing.Image

        Dim newImg As New Bitmap(IMG) ', newW, newH)

        newImg.Clone(New System.Drawing.Rectangle(1, 1, 50, 50), PixelFormat.Undefined)

        Dim g As Graphics = Graphics.FromImage(newImg)

        g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBilinear

        g.DrawImage(IMG, 0, 0, newImg.Width, newImg.Height)

        g.RotateTransform(90)

        Return newImg

  End Function

DETECTAR ESCANERES CONECTADOS

Private Sub LoadScanners(c As ComboBox, cID As ComboBox)

        Dim deviceName As String = ""

        c.Items.Clear()

        Dim deviceManager As New WIA.DeviceManager

        'Recorre la lista de disositivos y añadimos el nombre en combobox y el id en un segundo combobox

        For Each info As WIA.DeviceInfo In deviceManager.DeviceInfos

            Dim deviceID As String = info.DeviceID

            If info.Type = WIA.WiaDeviceType.ScannerDeviceType Then

                For Each p As WIA.Property In info.Properties

                    If p.Name = "Name" Then

                        deviceName = DirectCast(p, WIA.IProperty).Value.ToString()

                        c.Items.Add(deviceName)

                        cID.Items.Add(deviceID)

                    End If

                Next

            End If

        Next

   End Sub