在VB（Visual Basic）中，可以使用`Circle`方法来绘制同心圆。以下是一个简单的示例，展示了如何根据用户在文本框中输入的数量来绘制相应数量的同心圆：
使用`Circle`方法绘制同心圆
```vb
Private Sub Command2_Click（）
Dim i As Integer
For i = 1 To Val（Text2.Text）
Form3.Picture1.Circle （120, 260）, i * 10, vbRed ' 在左边为120,260的位置为圆心，i*10的数量为半径画个圆
Next i
Form3.Picture1.Refresh
End Sub
```
使用`Graphics`对象绘制同心圆
```vb
Private Sub Form_Click（）
Dim cx, cy, radius, limit
ScaleMode = 3 ' 设置同心圆的单位像素是3
cx = ScaleWidth / 2 ' 圆心的横坐标是窗体宽度的一半
cy = ScaleHeight / 2 ' 圆心的纵坐标是窗体高度的一半
If cx > cy Then
limit = cy ' 如果同心圆的横坐标大于纵坐标
Else
limit = cx ' 反之亦然
End If
For radius = 0 To limit
Circle （cx, cy）, radius, RGB（Rnd * 255, Rnd * 255, Rnd * 255） ' 同心圆的坐标（）色彩调试 R 红色 G绿色 B蓝色
Next radius
End Sub
```
使用GDI+绘制彩色同心圆
```vb
Private Sub Form_Load（）
PaintOnForm Me
End Sub
Public Function PaintOnForm（f As Form）
Dim i As Integer, b As Boolean
i = f.ScaleMode
b = f.AutoRedraw
f.ScaleMode = 3
f.AutoRedraw = True
For radius = 50 To 150 Step 10
f.Circle （f.ScaleWidth / 2, f.ScaleHeight / 2）, radius, RGB（Rnd * 255, Rnd * 255, Rnd * 255）
Next radius
f.AutoRedraw = b
f.ScaleMode = i
f.Refresh
End Function
```
这些示例展示了如何使用不同的方法在VB中绘制同心圆。你可以根据自己的需求选择合适的方法，并调整代码中的参数来实现更复杂的效果。