Dim dosism As String
SendKeys.Send("{PrtSc}")
PictureBox1.Image = Clipboard.GetImage
dosism = inputbox("Dosya ismi giriniz")
PictureBox1.Image.Save("c:\" & dosism & ".jpg")
Bu şekildede dosya ismini kendin girerek sağlayabilirsin.