在VB（Visual Basic）中绘制同心圆，你可以使用`Circle`方法。这个方法需要三个参数：圆心的横坐标、圆心的纵坐标和圆的半径。为了绘制多个同心圆，你可以通过改变半径的值来实现。
```vb
Private Sub Command1_Click()
Dim i As Integer
Dim N As Long
Form1.Cls ' 清除窗体上的内容
N = Form1.ScaleWidth / 20 ' 计算第一个圆的半径
For i = 1 To Val(Text1.Text) ' 根据文本框中的值绘制同心圆
Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), i * N ' 圆心在窗体中央，半径为i*N
Next i
Form1.Refresh ' 刷新窗体以显示绘制的同心圆
End Sub
```
在这个示例中，当用户在文本框`Text1`中输入一个数字时，程序会绘制相应数量的同心圆，圆心位于窗体的中央（横坐标为`Form1.ScaleWidth / 2`，纵坐标为`Form1.ScaleHeight / 2`），半径为输入数字乘以`N`。
如果你想要绘制一个特定数量的同心圆，你可以修改`For`循环的条件，使其循环`Text1.Text`中指定的次数。
请注意，这个示例假设你使用的是VB6.0或更高版本。如果你使用的是更早期的VB版本，可能需要使用不同的方法或语法来绘制图形。