For i = 0 To 8000 Step 50
    Circle (1000, i), 500, RGB(255, 10, 0)
Next i
For i = 0 To 8000 Step 50
    Circle (3000, i), 500, RGB(255, 10, 0)
Next i
For i = 0 To 8000 Step 50
    Circle (5000, i), 500, RGB(255, 10, 0)
Next i
For i = 0 To 8000 Step 50
    Circle (7000, i), 500, RGB(255, 10, 0)
Next i
For i = 0 To 8000 Step 50
    Circle (i, 1000), 500, RGB(0, 0, 255)
Next i
For i = 0 To 8000 Step 50
    Circle (i, 3000), 500, RGB(0, 0, 255)
Next i
For i = 0 To 8000 Step 50
    Circle (i, 5000), 500, RGB(0, 0, 255)
Next i
For i = 0 To 8000 Step 50
    Circle (i, 7000), 500, RGB(0, 0, 255)
Next i
End Sub
Private Sub Form_Load()
End Sub