Does this help?
Dim b As Bitmap = New Bitmap(My.Computer.Screen.Bounds.Width,My.Computer.Screen.Bounds.Height, Imaging.PixelFormat.Format32bppArgb)
Dim gfx As Graphics = Graphics.FromImage(b)
gfx.CopyFromScreen(My.Computer.Screen.Bounds.X,My.Computer.Screen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
b.Save("my2.jpg", Imaging.ImageFormat.Jpeg)