Dim pb As PictureBox
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button5.Click
        drawBm = Not drawBm
        If drawBm Then
            If pb Is Nothing Then
                pb = New PictureBox
                Dim bm As New Bitmap(Me.Width, Me.Height)
                Me.DrawToBitmap(bm, New Rectangle(0, 0, Me.Width, Me.Height))
 
                pb.Left = (Me.ClientSize.Width - Me.Width) / 2
                pb.Top = (Me.ClientSize.Height - Me.Height) - pb.Left
                pb.Width = Me.Width
                pb.Height = Me.Height
                pb.BackgroundImage = bm
            End If
            Me.Controls.Add(pb)
            pb.BringToFront()
        Else
            pb.BackgroundImage.Dispose()
            pb.Dispose()
            pb = Nothing
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist