Io avevo pensato a una cosa di questo genere:
Sub DisegnaForm(ByVal outGraph As Graphics)
'Crea una bitmap delle dimensioni della Form
Dim bmp As New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
'Ottiene il Graphics per disegnare sull'immagine
Using g As Graphics = Graphics.FromImage(bmp)
'Disegna lo sfondo color Form
g.Clear(Me.BackColor)
'Cicla fra le picturebox e le disegna
For Each box As PictureBox In pictureBoxes
box.DrawToBitmap(bmp, box.Bounds)
Next
'Cicla fra le label e le disegna
For Each lab As Label In labels
lab.DrawToBitmap(bmp, lab.Bounds)
Next
'Disegna l'immagine sul graphics
outGraph.DrawImage(bmp, 0, 0)
End Using
End Sub
Luca