VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1665
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6615
   LinkTopic       =   "Form1"
   ScaleHeight     =   1665
   ScaleWidth      =   6615
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label Label1 
      Caption         =   "用形状控件绘制的图形"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   1920
      TabIndex        =   0
      Top             =   120
      Width           =   2775
   End
   Begin VB.Shape Shape6 
      Height          =   735
      Left            =   5640
      Top             =   600
      Width           =   735
   End
   Begin VB.Shape Shape5 
      Height          =   735
      Left            =   4680
      Top             =   600
      Width           =   735
   End
   Begin VB.Shape Shape4 
      Height          =   735
      Left            =   3720
      Top             =   600
      Width           =   735
   End
   Begin VB.Shape Shape3 
      Height          =   735
      Left            =   2640
      Top             =   600
      Width           =   855
   End
   Begin VB.Shape Shape2 
      Height          =   735
      Left            =   1560
      Top             =   600
      Width           =   735
   End
   Begin VB.Shape Shape1 
      Height          =   735
      Left            =   120
      Top             =   600
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
   Rem 0表示vbShapeRectangle , 即矩形
   Shape1.FillColor = QBColor(0)
   Shape1.FillStyle = 0
   Shape1.Shape = 0
   Rem 1表示vbShapeSquare，即正方形
   Shape2.FillColor = QBColor(0)
   Shape2.FillStyle = 2
   Shape2.Shape = 1
   Rem 2表示vbShapeOval，即椭圆形
   Shape3.FillColor = QBColor(1)
   Shape3.FillStyle = 3
   Shape3.Shape = 2
   Rem 3表示vbShapeCircle，即圆形
   Shape4.FillColor = QBColor(2)
   Shape4.FillStyle = 4
   Shape4.Shape = 3
   Rem 4表示VbShapeRoundedRectangle，即圆角矩形
   Shape5.FillColor = QBColor(4)
   Shape5.FillStyle = 5
   Shape5.Shape = 4
   Rem 5表示VbShapeRoundedSquare，即圆角正方形
   Shape6.FillColor = RGB(255, 255, 0)
   Shape6.FillStyle = 6
   Shape6.Shape = 5
End Sub

