[عماد سلمان منذر]

اخوني الكرام هل استطيع وضع خط مستقيم او عامودي على الفورم

[bidaya]

كود :

Public Sub DrawLineFloat(ByVal e As PaintEventArgs)
       ' Create pen.
       Dim blackPen As New Pen(Color.DarkGreen, 3)
       ' Create coordinates of points that define line.
       Dim x1 As Single = 100.0F
       Dim y1 As Single = 100.0F
       Dim x2 As Single = 500.0F
       Dim y2 As Single = 100.0F
       ' Draw line to screen.
       e.Graphics.DrawLine(blackPen, x1, y1, x2, y2)
   End Sub

   Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
       DrawLineFloat(e)
   End Sub