Dim i As Integer
Dim j As Integer
For i = 1 To 3
If i = 1 Then
For j = 1 To 2
Circle (2000 * i, 2000), 150 * j
Next
ElseIf i = 2 Then
For j = 1 To 4
Circle (2000 * i, 2000), 150 * j
Next
ElseIf i = 3 Then
For j = 1 To 6
Circle (2000 * i, 2000), 150 * j
Next
End If
Next