Public Class Form1
    Dim g As Graphics
    Dim oRect1 As New Rectangle(30, 30, 150, 150)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        g = CreateGraphics()
        Timer1.Interval = 3000
        Timer2.Interval = 1000
        Timer3.Interval = 1000
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim oPen4 As New Pen(Color.Black, 15)
        g.DrawEllipse(oPen4, oRect1)
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim oPen4 As New Pen(Me.BackColor, 15)
        g.DrawEllipse(oPen4, oRect1)
        Timer1.Stop()
        Timer1.Interval -= 1000
        Timer2.Start()
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        Dim oPen4 As New Pen(Color.Black, 15)
        g.DrawEllipse(oPen4, oRect1)
        Timer2.Stop()
        If Timer1.Interval > 1000 Then
            Timer2.Interval -= 500
            Timer1.Start()
        Else
            Timer3.Start()
        End If
    End Sub
 
    Private Sub Timer3_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Timer3.Tick
        Dim oRect1 As New Rectangle(30, 30, 150, 150)
        Dim oPen4 As New Pen(Me.BackColor, 15)
        g.DrawEllipse(oPen4, oRect1)
        Timer3.Stop()
        Timer1.Interval = 3000
        Timer2.Interval = 1000
    End Sub
End Class