Сохранить катинку без диалогового окна

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim data As IDataObject
        Dim bmap As Image
        SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
        data = Clipboard.GetDataObject()
        If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
            bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
            picCapture.Image = bmap
            ClosePreviewWindow()
            btnSave.Enabled = False
            btnStop.Enabled = False
            btnStart.Enabled = True
            If sfdImage.ShowDialog = DialogResult.OK Then
                bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)
            End If
        End If
    End Sub

bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)

bmap.Save("С:\картинка.bmp", Imaging.ImageFormat.Bmp)

        Dim B As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim G As Graphics = Graphics.FromImage(B)
        G.CopyFromScreen(New Point(0, 0), New Point(0, 0), My.Computer.Screen.Bounds.Size)
        B.Save("C:\Screen.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

bmap.Save("С:\картинка.bmp", Imaging.ImageFormat.Bmp)

bmap.Save("С:\картинка.bmp", System.Drawing.Imaging.ImageFormat.Bmp)