小弟才开始学VB ，故向各位大哥大姐求助如何用VB写一个画圆的函数，圆的圆心可以控制，大小一定，谢谢了先

Circle可以画圆...详细请看msdn

shape控件也行...........

Sub Form_Click()
Dim CX, CY, Radius ' Declare variable.
ScaleMode = 3 ' 以像素为单位。
CX = ScaleWidth / 2 ' X 位置。
CY = ScaleHeight / 2 ' Y 位置。
Circle (CX, CY), 100
End Sub

我再提供一个画窗体圆或者椭圆的程序. 通过API函数实现:
椭圆:
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hrgn As Long, ByVal bRedraw As Boolean) As Long

Dim hrgn As Long
Dim lres As Long

Private Sub form_Click()
Dim hrgn As Long
Dim lres As Long
hrgn = CreateEllipticRgn(30, 30, 300, 200)
lres = SetWindowRgn(Me.hWnd, hrgn, True)
End Sub

圆:
只要将hrgn = CreateEllipticRgn(30, 30, 300, 200)
这条命令改一下:比如改为:
hrgn = CreateEllipticRgn(30, 30, 200, 200)

API函数setwindowrgn是一个很好用的函数

谢谢各位了先!