[Mtaktak]

شكرا على مرورك وردك

سبق وجربت هذا الكود الذي كتبته انت لي مشكورا

  Dim x1 = 10, y1 = 10, x2 = 300, y2 = 300
       Me.CreateGraphics().DrawLine(Pens.Red, New Point(x1, y1), New Point(x2, y2))

 لكن مشكلته لا يمكن رسمه فوق الادوات الموجودة على الفورم وليس عريض الشكل

حاليا انا استخدم هذا الكود ولكنه ينفع للافقي والعمودي ..... ولا ينفع للمائل

كود :

If H1 = True Then
           
           If PictureBox.Width <= 311 Then
               PictureBox.Width += 15
           Else
               PictureBox.Width = 312

           End If
       End If