Private Sub Label1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
Dim p As New Pen(Color.White, 1)
e.Graphics.DrawLine(p, e.ClipRectangle.X, e.ClipRectangle.Y, e.ClipRectangle.X + e.ClipRectangle.Width, e.ClipRectangle.Y)
e.Graphics.DrawLine(p, e.ClipRectangle.X, e.ClipRectangle.Y, e.ClipRectangle.X, e.ClipRectangle.Y + e.ClipRectangle.Height)
p.Dispose()
End Sub