これにより、探している画像が得られるはずです。(編集済み)
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()