capturar ventana activa, funciona pero...

[winexim]

Agrega

Application.DoEvents()
donde tu creeas que lo ocupes

ejemplo

System.Threading.Thread.Sleep(Me.NumericUpDown1.Va lue * 1000)
SendKeys.Send("%{PRTSC}")
Dim img As Bitmap = My.Computer.Clipboard.GetImage
Me.PictureBox1.Image = img
Application.DoEvents()
Me.Show()