Dim dosism As String SendKeys.Send("{PrtSc}") PictureBox1.Image = Clipboard.GetImage dosism = inputbox("Dosya ismi giriniz") PictureBox1.Image.Save("c:\" & dosism & ".jpg")