这应该可以为您提供您正在寻找的图像。(已编辑)
Dim Img As New Bitmap(180, 100)
Dim g As Graphics = Graphics.FromImage(Img)
g.CopyFromScreen((Screen.PrimaryScreen.WorkingArea.Width / 2) - 90, _
(Screen.PrimaryScreen.WorkingArea.Height / 2) - 50, _
0, 0, Img.Size)
g.Dispose()