【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了Ex6_9.frm提供大家参考，希望对大家有所帮助!

    VERSION 5.00
    Begin VB.Form Ex6_9 
       Caption         =   "Form1"
       ClientHeight    =   3120
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4905
       LinkTopic       =   "Form1"
       ScaleHeight     =   3120
       ScaleWidth      =   4905
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Ex6_9"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim mycls As New ProGet
    Private Sub Form_Click()
        Ex6_9.Caption = "Property Get过程的使用"  '设置窗体Caption属性
        '检测窗体的属性
        Print "本窗体的Appearance属性值为："; mycls.GValue(Ex6_9.Appearance)
        Print "本窗体的AutoRedraw属性值为："; mycls.GValue(Ex6_9.AutoRedraw)
        Print "本窗体的BackColor属性值为："; mycls.GValue(Ex6_9.BackColor)
        Print "本窗体的BorderStyle属性值为："; mycls.GValue(Ex6_9.BorderStyle)
        Print "本窗体Caption属性值为："; mycls.GValue(Ex6_9.Caption)
    End Sub