Dimp1AsNewPoint(0,0)Dimp2AsNewPoint(My.Computer.Screen.WorkingArea.Width,My.Computer.Screen.WorkingArea.Height)'除工具欄全屏DimpicAsNewBitmap(p2.X,p2.Y)UsinggAsGraphics=Graphics.FromImage(pic)g.CopyFromScreen(p1,p1,p2)PictureBox1.Image=picEndUsingClipboard.SetImage(PictureBox1.Image)截圖到PictureBox1中顯示，然后在把PictureBox1.image放到剪切板中