1 2  3 4 5 ...

Private Sub lblW1_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles lblW1.MouseDown
 
    Sekrechte_Linie_ziehen(lblW1.Location.X + 1)
End Sub

Private Sub Sekrechte_Linie_ziehen(ByVal Left As Long)
    Dim g As Graphics
    Dim p As Pen
 
     g = Me.CreateGraphics()
 
       'LinienFarbe, LinienStärke
     p = New Pen(System.Drawing.Color.Red, 1)
 
        'Linie => (pen=Farbe, Linienstärke), x1, y1, x2, y2
        'Senkrechte Linien  (Pen,  LEFT (von unten), Linienlänge, Left(von 
        ' oben), TOP )
     g.DrawLine(p, Left, 870, Left, 37)
 End Sub