Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim s As Size
        Dim bm As Bitmap
        Dim rec As Rectangle
 
        s = Me.ClientSize
        rec = Me.ClientRectangle
        bm = New Bitmap(s.Width, s.Height)
        Me.DrawToBitmap(bm, rec)
        bm.Save("D:\0001\test.png")
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1