[Osama_Ghareeb]

إذافي تنسيق إستخدمي أداة TextBox وخلي خاصية MultiLine تساوي True


وإستخدمي الكود الأول

كود :

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