Public Class LineControl
    Inherits Control
 
    Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        e.Graphics.DrawLine(Pens.Red, 0, Me.Height \ 2, Me.Width, Me.Height \ 2)
    End Sub
 
    Protected Overrides ReadOnly Property CreateParams() As _
      System.Windows.Forms.CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H20
            Return cp
        End Get
    End Property
 
    Protected Overrides Sub OnPaintBackground(ByVal pevent As _
      System.Windows.Forms.PaintEventArgs)
 
    End Sub
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist