VB.netで画面キャプチャして保存

Dim p As New Point(0, 0)
Dim s As New Size(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
Dim bmp As New Bitmap(s.Width, s.Height)
Dim g As Graphics = Graphics.FromImage(bmp)
g.CopyFromScreen(p, New Point(0, 0), s)
g.Dispose()
PictureBox1.Image = bmp
bmp.Save("C:\***.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)