frmcalendar.frm

VB类QQ聊天程序NETICE版 VB类QQ聊天程序NETICE版

VERSION 5.00
Object = "{2580DC82-3ED8-4B53-8119-C9FEDCED19F5}#8.0#0"; "XPCalendar.ocx"
Begin VB.Form FrmCalendar 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "万年历（公历和农历对照）"
   ClientHeight    =   3240
   ClientLeft      =   2370
   ClientTop       =   2310
   ClientWidth     =   4440
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3240
   ScaleWidth      =   4440
   Begin XPCalendar.XPMonth XPMonth1 
      Height          =   3195
      Left            =   30
      TabIndex        =   0
      Top             =   0
      Width           =   4365
      _ExtentX        =   7699
      _ExtentY        =   5636
   End
End
Attribute VB_Name = "FrmCalendar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Dim strForm As String
    strForm = FormSet(Me, 5)
    XPMonth1.CurrDate = Date
End Sub