VERSION 5.00
Begin VB.Form FrmCircle 
   BackColor       =   &H80000009&
   Caption         =   "五环旗下"
   ClientHeight    =   4260
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5880
   LinkTopic       =   "Form1"
   ScaleHeight     =   4260
   ScaleWidth      =   5880
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton CmdExit 
      BackColor       =   &H008080FF&
      Caption         =   "退出"
      Height          =   495
      Left            =   3840
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   3600
      Width           =   1215
   End
   Begin VB.CommandButton CmdCancel 
      BackColor       =   &H0000C000&
      Caption         =   "取消"
      Height          =   495
      Left            =   2280
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3600
      Width           =   1215
   End
   Begin VB.CommandButton CmdDraw 
      BackColor       =   &H0080C0FF&
      Caption         =   "绘制五环"
      Height          =   495
      Left            =   720
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   3600
      Width           =   1215
   End
End
Attribute VB_Name = "FrmCircle"
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()
   FrmCircle.DrawWidth = 6                       '窗体的DrawWidth属性值设为6
   Circle (1620, 1780), 550, RGB(1, 128, 195)    '蓝色圆
   Circle (2260, 2300), 550, RGB(253, 176, 48)
   Circle (2910, 1780), 550, RGB(0, 0, 0)
   Circle (3550, 2300), 550, RGB(0, 165, 81)
   Circle (4200, 1780), 550, RGB(237, 25, 47)
End Sub

Private Sub CmdExit_Click()
  End
End Sub
