Dim f2 As New frmToDraw2
'f2.Top = 2000
f2.Visible = True
Dim bmp As New Bitmap(f2.Width, f2.Height)
f2.DrawToBitmap(bmp, f2.Bounds)
f2.visible = false
 
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
PictureBox1.Image = bmp

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)