VB2010或VB.NET 怎么能将自身窗体的所有内容保存为图片

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Windows.Forms.SendKeys.Send("%{PRTSC}")
        Delay(0.1)
        Dim bmp As Bitmap = CType(Clipboard.GetDataObject().GetData(DataFormats.Bitmap), Bitmap)
        bmp.Save("c:\test1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
    End Sub

    Private Sub Delay(ByVal tim As Single)
        Dim t As Single = Microsoft.VisualBasic.Timer + tim
        While t > Microsoft.VisualBasic.Timer
            My.Application.DoEvents()
        End While
    End Sub