سلام
آیا واسه شما هم پیش اومده که بنا به دلایلی، مثلا ساخت screensaver بخواید که از desktop و آیکنهای روش عکس بگیرید. 



 

PrivateSub btn_capture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_capture.Click

Dim w AsInteger = Screen.PrimaryScreen.WorkingArea.Width

Dim h AsInteger = Screen.PrimaryScreen.WorkingArea.Height

Dim bim AsNew Bitmap(w, h)

Dim g As Graphics = Graphics.FromImage(bim)

Dim siz As Drawing.Size

 

Me.Visible = False

siz.Width = w

siz.Height = h

g.CopyFromScreen(0, 0, 0, 0, siz)

Me.BackgroundImage = bim

Me.Visible = True

EndSub
دراین کد من یه تصویر از desktop گرفتم و اون رو در پس زمینه فرمم نشون می دم. شما می تونید bim رو که تصویر در اون ذخیره شده رو در یک فایل ذخیره کنید.




 bim.Save("d:\test.jpg")