The main thing about the folling code is that is used a dialog box to save a file. This is an essential element for most applications.
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
'Bring up file save dialog
Dim dlgSave As New SaveFileDialog
dlgSave.Filter = 'Image files (*.bmp)|*.bmp|All files (*.*)|*.*'
If dlgSave.ShowDialog() = DialogResult.OK Then
'makebitmap and save it
Dim bmpArea As Bitmap = bitmap.Clone(New Rectangle
(0, 0, Me.Width, Me.Height), bitmap.PixelFormat)
bmpArea.Save(dlgSave.FileName, ImageFormat.Bmp)
End If
End Sub