[Osama_Ghareeb]

ضعي كل الأدوات التي ستظهر في الصورة في Panel واحد

ثم إستخدمي الأمر التالي :

كود :

Dim Img As New Bitmap([color=#ff0000]Panel1[/color].Width, [color=#ff0000]Panel1[/color].Height)
        Dim Save As New SaveFileDialog
        Save.Filter = "PNG Image|*.png"
        [color=#ff0000]Panel1[/color].DrawToBitmap(Img, New Rectangle(0, 0, [color=#ff0000]Panel1[/color].Width, [color=#ff0000]Panel1[/color].Height))
        If Save.ShowDialog = Windows.Forms.DialogResult.OK Then
            Img.Save(Save.FileName, Imaging.ImageFormat.Png)
        End If

بالتوفيق