在Visual Basic（VB）中，有多种方法可以用来画圆。以下是几种常见的方法：
方法一：使用Graphics类
在VB中，可以通过`Graphics`类来绘制图形。以下是一个简单的画圆程序代码示例：
```vb
Private Sub Form_Paint（）
Dim G As Graphics
G = Me.CreateGraphics（）
G.DrawEllipse（Pens.Black, 10, 10, 100, 100）
End Sub
```
在这个程序中，`DrawEllipse`方法是`Graphics`类中用来画椭圆的方法，其参数分别是画笔、圆的左上角坐标、圆的宽度和高度。
方法二：使用Shape控件
`Shape`控件可以用来画各种形状，包括圆形。以下是一个简单的画圆程序代码示例：
```vb
Private Sub Form_Load（）
Shape1.Width = 100
Shape1.Height = 100
Shape1.Left = 10
Shape1.Top = 10
Shape1.Shape = vbShapeCircle
End Sub
```
在这个程序中，`Shape1`控件的`Width`和`Height`属性分别设置为100，即圆的直径，`Left`和`Top`属性设置为10，即圆的左上角坐标，`Shape`属性设置为`vbShapeCircle`，表示绘制一个圆形。
方法三：使用API函数
在VB中，可以使用API函数来画圆。以下是一个简单的画圆程序代码示例：
```vb
Private Declare Function Circle Lib "gdi32" （ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal radius As Long） As Long
Private Sub Command1_Click（）
Circle 1500, 1000, 700, vbBlack
End Sub
```
在这个程序中，`Circle`函数用于在指定的坐标`（x, y）`处画一个半径为`radius`的圆，颜色为`vbBlack`。
方法四：使用循环绘制同心圆
```vb
Private Sub Form_Click（）
Dim i As Integer
For i = 1 To 10
Circle 2000, 2000, i * 100
Next i
End Sub
```
在这个程序中，循环从1到10，每次绘制一个半径递增的同心圆，圆心坐标为`（2000, 2000）`。
总结
以上是几种在VB中画圆的方法，可以根据具体需求选择合适的方法。`Graphics`类和`Shape`控件适合在窗体上绘制图形，而API函数则提供了更底层的控制。