Private Sub DeinForm_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
 
 
        Dim X As Integer = Me.Width
        Me.Height = LBreite
        Dim myPen As New System.Drawing.Pen(Lcolor, LBreite)
        myPen.DashStyle = LStyle
 
        e.Graphics.DrawLine(myPen, 0, 2, X, 2)
 
    End Sub

Gruß
Christoph