VERSION 5.00
Begin VB.Form FrmCircle 
   BackColor       =   &H80000009&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "五环旗下"
   ClientHeight    =   4260
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5850
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4260
   ScaleWidth      =   5850
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton CmdExit 
      BackColor       =   &H008080FF&
      Caption         =   "退出"
      Height          =   495
      Left            =   4200
      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            =   360
      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()
  Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
   Unload Me
   Frmsys.Show
End Sub
