SendKeys.Send("{PrtSc}")

kodu ile Print Screen yaparsın.

PictureBox1.Image = Clipboard.GetImage

kodu ile hafızadaki resmi picturebox 'a atarsın.

PictureBox1.Image.Save("c:\dosyaadi.jpg")

ile kaydedersin.

Fakat, son komutta dosya adının ardaşık gitmesini istediğin için şöyle bir mantık uygulamalısın,

Kodlara başlamadan en üstte genel bir değişken tanımlayarak, her dosya kaydettiğinde o değişkenin bir artmasını sağlamalısın.

dim dosyaadi as integer=1

sub kaydet
SendKeys.Send("{PrtSc}")
PictureBox1.Image = Clipboard.GetImage
PictureBox1.Image.Save("c:\" & dosyaadi & ".jpg")
dosyaadi=dosyaadi+1
end sub

gibi bir kod öbeği istediğini yapacaktır. Biraz geliştirmen gerekebilir