Ciao
per disegnare una linea passi le coordinate di due punti tra i quali viene tracciata la linea.
e.Graphics.DrawLine(blackPen, x1, y1, x2, y2)
Dal punto A(x1,y1) al punto B(x2,y2)
Se i punti hanno valore di y uguale la linea è orizzontale
Se i punti hanno valore di x uguale la linea è verticale
Dim Linea As New Drawing.Pen(System.Drawing.Color.Black, 3)
Dim g As Graphics = Me.CreateGraphics
'orizzontale
g.DrawLine(Linea, 100, 25, 50, 25)
'verticale
g.DrawLine(Linea, 50, 100, 50, 10)
g.Dispose()
Quando crei oggetti grafici devi ricordarti di distruggerli