Imports System.Drawing.Drawing2D
Public Class Form1
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim re As New Rectangle(20, 20, 150, 50)
        Dim lb As LinearGradientBrush = New LinearGradientBrush(New Rectangle( _
          20, 20, 150, 25), _
        Color.Green, Color.Gold, LinearGradientMode.Vertical)
        lb.WrapMode = WrapMode.TileFlipX
        With e.Graphics
            .Clear(Color.Black)
            .SmoothingMode = Drawing2D.SmoothingMode.HighQuality
            .TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
            .FillEllipse(lb, re)
            .DrawEllipse(New Pen(Color.Red, 4), re)
            .DrawString("Start", New Font("Arial", 20), Brushes.Blue, 65, 30)
        End With
        lb.Dispose()
    End Sub
End Class