[sooriaty03]

أخي الكريم
جرب هذه الطريقة
فهي أولا ستلغي الـ CONTROLS من أعلى الإطار
ثم يخفي الأدوات الموجودة على الفورم
وبعدها يقوم بأخذ صورة للفورم ثم يعيد كل شيء كما كان

كود :

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        For Each A In Me.Controls
            A.visible = False
        Next
        Dim bmp As New Bitmap(Me.Size.Width, Me.Size.Height)
        Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Size.Width, Me.Size.Height))
        PictureBox1.Image = bmp
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        For Each A In Me.Controls
            A.visible = True
        Next

أرجو لك التوفيق