how to set resolution and resize the captured image?

See more:

VB

Hi! all,
I have created a image capturing code in VB.Net, for this i used the interop.WIA.dll,
the problem i am facing is when i capture the image, it's size is big and i want to resize it's resolution and size to small.
Following is the code i'm using to capture the image and i can't resize the image.

Private Sub btnGrab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrab.Click
        Dim item As WIA.Item
        Try
            'executes the device's TakePicture command
            item = SelectedDevice.ExecuteCommand(WIA.CommandID.wiaCommandTakePicture)
        Catch ex As System.Exception
            MessageBox.Show("Problem Taking Picture. Please make sure that the camera is plugged in and is not in use by another application. " & vbCrLf & "Extra Info:" & ex.Message, "Problem Grabbing Picture", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
            Exit Sub
        End Try
        Dim jpegGuid As String
        'retrieves jpegKey from registry, used in saving JPEG
        Dim jpegKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("CLSID\{D2923B86-15F1-46FF-A19A-DE825F919576}\SupportedExtension\.jpg")
        jpegGuid = CType(jpegKey.GetValue("FormatGUID"), String)
        'loops through available formats for the captured item, looking for the JPG format
        For Each format As String In item.Formats
            If (format = jpegGuid) Then
                'transfers image to an imagefile object
                Dim imagefile As WIA.ImageFile = CType(item.Transfer(format), WIA.ImageFile)
                Dim Counter As Integer 'counter in loop appended to filename
                Dim LoopAgain As Boolean = True
                Dim height As Int32 = CInt(Val(10))
                Dim width As Int32 = CInt(Val(10))

                'searches directory, gets next available picture name
                Do Until LoopAgain = False
                    Dim Filename As String = SavePath & "\" & txtPrefix.Text & Counter.ToString & ".jpg"
                    'if file doesnt exist, save the file
                    If Not System.IO.File.Exists(Filename) Then
                        SavedFilePath = Filename
                        imagefile.SaveFile(Filename) 'saves file to disk
                        lblCapName.Text = FormatPath(Filename)
                        lblImageName.Text = txtPrefix.Text & Counter.ToString & ".jpg"
                        picCap.Image = Image.FromFile(Filename) 'loads captured file to picturebox
                        Image.FromFile(Filename)
                        'Image()
                        LoopAgain = False
                        imagefile.Height.ToString()
                    End If
                    Counter = Counter + 1
                Loop
            End If
        Next
        If grpSaved.Enabled = False Then
            grpSaved.Enabled = True
        End If
    End Sub