Protected Overrides Sub OnPaint(ByVal pevent As _
      System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(pevent)
        Dim p As New Pen(BackColor, 1)
        Dim r As Rectangle = New Rectangle(0, 0, Me.ClientRectangle.Width - 1, _
          Me.ClientRectangle.Height - 1)
        pevent.Graphics.DrawRectangle(p, r)
        p.Dispose()
    End Sub

________
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