[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

ضع هذا الكود داخل المثال الذي أرفقته أنت في المشاركة رقم 6 ...

كود :

Public Class Form1

    Private Sub AllSeparators(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles ToolStripMenuItem3.Paint, ToolStripMenuItem2.Paint, ToolStripMenuItem1.Paint
        'معرفة الفاصل  الذي يتم رسمه حاليا
        Dim CurrentToolStripSeparator As ToolStripSeparator = DirectCast(sender, ToolStripSeparator)
        'تعبئة الخلفية باللون المطلوب
        e.Graphics.FillRectangle(New System.Drawing.SolidBrush(CurrentToolStripSeparator.BackColor), e.ClipRectangle)
        'تحديد أبعاد  الفاصل
        Dim Y As Integer = CInt(e.ClipRectangle.Height / 2)
        Dim X1 As Integer = IIf(CurrentToolStripSeparator.RightToLeft = Windows.Forms.RightToLeft.Yes, 0, 30)
        Dim X2 As Integer = IIf(CurrentToolStripSeparator.RightToLeft = Windows.Forms.RightToLeft.Yes, e.ClipRectangle.Width - 30, e.ClipRectangle.Width)
        'رسم الفاصل
        e.Graphics.DrawLine(New Pen(CurrentToolStripSeparator.ForeColor), X1, Y, X2, Y)
    End Sub

End Class

بالتوفيق