Universal Accounting Manager - FLV.vb

FLV.vb

1. Public Class FLV
2.     Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
3.         MyBase.OnPaint(e)
4.         Dim buttonPath As New System.Drawing.Drawing2D.GraphicsPath
5.         Dim newRectangle As Rectangle = Me.ClientRectangle
6.         'newRectangle.Inflate(-1, -1)
7.         newRectangle.Inflate(1, 10)
8.         buttonPath.AddEllipse(newRectangle)
9.         e.Graphics.DrawPath(Pens.Black, buttonPath)
10.         Me.Region = New System.Drawing.Region(buttonPath)
11.     End Sub
12.     Private Sub NewProduct_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
13.  
14.     End Sub
15. End Class