Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
 
        Dim b As New Bitmap( _
          SystemInformation.VirtualScreen.Width,SystemInformation.VirtualScreen_
          .Height)
        Using g As Graphics = Graphics.FromImage(b)
            g.CopyFromScreen(0, 0, 0, 0, b.Size)
            Clipboard.SetImage(b)
        End Using
 
 
End Sub