Помогите решить задачу - за деньги.

Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Dim i As Integer
Private Sub Command1_Click()
    Timer1.Interval = 5000
    Timer1.Enabled = True
    Timer2.Interval = 10000
    Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = False
    Timer2.Enabled = False
End Sub
Private Sub Command3_Click()
    Unload Me
End Sub
Private Sub Form_Load()
    i = 1
    Picture1.ScaleMode = 3
    Picture1.FillStyle = 0
End Sub
Private Sub Timer1_Timer()
    Picture1.Cls
    Select Case i
    Case 1
        Picture1.Line (20, 20)-(200, 200), 0
        Picture1.Line -(20, 200), 0
        Picture1.Line -(20, 20), 0
        i = 2
    Case 2
        Picture1.Circle (110, 110), 90
        i = 3
    Case 3
        Picture1.Line (20, 20)-(200, 200), 0, B
        i = 1
    End Select
    FloodFill Picture1.hdc, 100, 110, 0
End Sub
Private Sub Timer2_Timer()
    Randomize Timer
    Dim r As Integer, g As Integer, b As Integer
    r = Int(Rnd(1) * 255)
    g = Int(Rnd(1) * 255)
    b = Int(Rnd(1) * 255)
    Picture1.FillColor = RGB(r, g, b)
    FloodFill Picture1.hdc, 100, 110, 0
End Sub

Private Sub Form_Load()
    i = 1
    Picture1.ScaleMode = 3
    Picture1.FillStyle = 0

i = 1
Picture1.ScaleMode = 3
Picture1.FillStyle = 0

Private Sub Command1_Click()
Timer1.Interval = 5   Вот тут я менял. 
Timer1.Enabled = True
Timer2.Interval = 15  Вот тут я менял. 
Timer2.Enabled = True
End Sub