从字面上看就知道Screen类是与屏幕显示相关的。
Screen类提供了以下属性：
AllScreens：获取系统上所有屏幕的数组。
BitsPerPixel： 获取与数据的一个像素相关联的内存位数。
Bounds：一个Rectangle值，指明了屏幕高度和宽度的像素
PrimaryScreen： 获取主屏幕。
Dim scr() As Screen = Screen.AllScreens
For i As Integer = 0 To scr.Length - 1
Debug.Print("屏幕区域：" & scr(i).Bounds.X & "," & scr(i).Bounds.Y & "," & scr(i).Bounds.Width & "," & scr(i).Bounds.Height)
Debug.Print("工作区域：" & scr(i).WorkingArea.X & "," & scr(i).WorkingArea.Y & "," & scr(i).WorkingArea.Width & "," & scr(i).WorkingArea.Height)
Next
我的电脑上获得的：
屏幕区域：0,1680,1050
工作区域：0,1010
工作区域：0,1010
我的电脑只有一个显示器。屏幕区域高度比工作区域高度多了的40像素是任务栏。
获得屏幕区域的Rectangle，我们就可以知道屏幕像素大小了。然后可以通过Graphics对象的CopyFromScreen()方法获得屏幕截图。
以下代码获得屏幕截图：
Dim scr1 As Screen = Screen.PrimaryScreen
Dim rec As Rectangle = scr1.Bounds
Dim bmp As New Bitmap(rec.Width,rec.Height)
Dim g As Graphics = Graphics.FromImage(bmp)
g.CopyFromScreen(New Point(0,0),New Point(0,New Size(rec.Width,rec.Height))
g.Dispose()
bmp.Save("d:\aa.jpg",Imaging.ImageFormat.Jpeg)
bmp.Dispose()
我的电脑只有一个显示器，所以只需要将
Dim scr1 As Screen = Screen.PrimaryScreen
获得屏幕高度和宽度后，用高度和宽度新实例化一个Bitmap对象bmp，
接着新建一个graphics对象g，
然后通过g.CopyFromScreen获得屏幕图像，
最后保存bmp。
截图是保存了，可是还有瑕疵：我们用来截图的窗口也保存下来了。
怎么解决呢？
当然还是有办法的。
Me.Visible = False
Me.Visible = True
还是不行，程序运行太快了，窗体还没有隐藏完就抓图了，至少我这台电脑是这样。
OK。
再加上
Threading.Thread.Sleep（200）
让程序休息一下。
完整代码：
Me.Visible = False
Threading.Thread.Sleep（200）
Dim scr1 As Screen = Screen.PrimaryScreen
Dim rec As Rectangle = scr1.Bounds
Dim bmp As New Bitmap(rec.Width,Imaging.ImageFormat.Jpeg)
bmp.Dispose()
Me.Visible = True
运行抓图效果：
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识，请参看 vb.net 教程 目录