Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim bmp As New Bitmap(1024,768)'這跟妳的電腦分辨率有關,要更改
Dim gs As Graphics = Graphics.FromImage(bmp)
gs.CopyFromScreen(0, 0, 0, 0, New Size(1024, 768))'這跟妳的電腦分辨率有關,要更改
bmp.Save("C:\myBmp.bmp")
End Sub
把它弄到開始菜單,壹打開,桌面就被截了。