Imports System.Drawing.Drawing2D
Public Class Form1
    Dim gp As New GraphicsPath()
    Dim WithEvents t As New Timer
    Dim WithEvents Pb As New PictureBox
    Dim wi As Int32
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Pb.Dock = DockStyle.Fill
        'gp.AddEllipse(15, 0, 260, 260)
        gp.AddRectangle(Me.ClientRectangle)
        Me.Controls.Add(Pb)
        t.Start()
    End Sub
 
    Private Sub Pb_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Pb.Paint
        Dim x As Int32 = CInt(140 + Math.Cos(wi * Math.PI / 180) * 90)
        Dim y As Int32 = CInt(130 - Math.Sin(wi * Math.PI / 180) * 90)
        Using pgb As New PathGradientBrush(gp)
            pgb.CenterPoint = New Point(x, y)
            pgb.CenterColor = Color.White
            pgb.SurroundColors = New Color() {Color.Green}
            e.Graphics.FillPath(pgb, gp)
        End Using
    End Sub
 
    Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles t.Tick
        wi -= 4
        Pb.Invalidate()
    End Sub
End Class