VERSION 5.00
Begin VB.Form FrmTongxinyuan 
   BackColor       =   &H00FFFFFF&
   Caption         =   "同心圆"
   ClientHeight    =   4215
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4875
   LinkTopic       =   "Form1"
   ScaleHeight     =   4215
   ScaleWidth      =   4875
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton CmdExit 
      BackColor       =   &H0080FFFF&
      Caption         =   "退出"
      Height          =   375
      Left            =   3480
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   3720
      Width           =   975
   End
   Begin VB.CommandButton CmdCancel 
      BackColor       =   &H0000C000&
      Caption         =   "取消"
      Height          =   375
      Left            =   1980
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3720
      Width           =   975
   End
   Begin VB.CommandButton CmdDraw 
      BackColor       =   &H000080FF&
      Caption         =   "同心圆"
      Height          =   375
      Left            =   480
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   3720
      Width           =   975
   End
End
Attribute VB_Name = "FrmTongxinyuan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancel_Click()
  Cls
End Sub

Private Sub CmdDraw_Click()
  FrmTongxinyuan.DrawWidth = 3
  Circle (2500, 2000), 400, RGB(1, 128, 195)        '绘制蓝色圆
  Circle (2500, 2000), 700, RGB(253, 176, 48)       '绘制黄色圆
  Circle (2500, 2000), 1000                         '绘制黑色圆
  Circle (2500, 2000), 1300, RGB(0, 165, 81)        '绘制绿色圆
  Circle (2500, 2000), 1600, RGB(237, 25, 47)       '绘制红色圆
End Sub

Private Sub CmdExit_Click()
  End
End Sub
