Public Class frmDrawLines
 
    Dim pb As New PictureBox With _
          {.Parent = Me, .Width = 500, .Height = 500}
 
 
    Private Sub frmLines_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Dim bmp As New Bitmap(300, 400)
 
        Drawlines(bmp, 20, 80, True)
        Drawlines(bmp, 30, 300)
 
        pb.Image = bmp
    End Sub
 
 
    ''' <summary>Gruppe von parallelen Linien zeichnen</summary>
    ''' <param name="bmp">Bitmap für Zeichnung</param>
    ''' <param name="distance">Abstand zwischen den Linien</param>
    ''' <param name="addwidth">Verschiebung gegenüber der Vertikale (Pixel)</param>
    ''' <param name="clear">Soll die Bitmap zuvor gelöscht werden?</param>
    Public Sub Drawlines(bmp As Bitmap, distance As Integer, _
                         addwidth As Integer, _
                         Optional ByVal clear As Boolean = False)
 
        If bmp Is Nothing Then Exit Sub
 
        Using g As Graphics = Graphics.FromImage(bmp), _
            p As New Pen(Color.Black, 1)
            If clear Then
                g.Clear(Color.White)
            End If
            For i As Integer = -bmp.Height To bmp.Height Step distance
                g.DrawLine(p, New Point(i, 0), _
                   New Point(CInt(i + addwidth), bmp.Height))
            Next i
        End Using
    End Sub
End Class