Hola JETET, con lo siguiente queda en el portapapeles
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ImSize As New Size(Screen.PrimaryScreen.Bounds.Size)
Dim grap As Graphics = Me.CreateGraphics
Dim bm As New Bitmap(ImSize.Width, ImSize.Height, grap)
Dim grap2 As Graphics = Graphics.FromImage(bm)
grap2.CopyFromScreen(0, 0, 0, 0, ImSize)
Clipboard.Clear()
Clipboard.SetImage(bm)
End Sub
Se genera un bitmap y dos grafícos uno para el size y otro para copiar la imagen . Esto tambien lo puedes volcar ne un picture PictureBox.Imagen = bm
Espero te sirva
Saludos