FLV.vb
- Public Class FLV
- Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
- MyBase.OnPaint(e)
- Dim buttonPath As New System.Drawing.Drawing2D.GraphicsPath
- Dim newRectangle As Rectangle = Me.ClientRectangle
- 'newRectangle.Inflate(-1, -1)
- newRectangle.Inflate(1, 10)
- buttonPath.AddEllipse(newRectangle)
- e.Graphics.DrawPath(Pens.Black, buttonPath)
- Me.Region = New System.Drawing.Region(buttonPath)
- End Sub
- Private Sub NewProduct_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class