VERSION 5.00
Begin VB.Form FrmTongxinyuan 
   BackColor       =   &H00FFFFFF&
   Caption         =   "同心圆"
   ClientHeight    =   5295
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5745
   LinkTopic       =   "Form1"
   ScaleHeight     =   5381.098
   ScaleMode       =   0  'User
   ScaleWidth      =   5000
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "FrmTongxinyuan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
  Scale (-12, 12)-(12, -12)     '修改坐标系
  DrawWidth = 2                 '设置画笔粗细为2
  c = RGB(0, 255, 0)            '设置颜色为绿色
  For i = 0 To 10               '循环十一次画圆
    Circle (0, 0), i, c
  Next i
End Sub

