form2.frm

山西旅游酒店预定商务软件

VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "卓阳助手"
   ClientHeight    =   3645
   ClientLeft      =   3630
   ClientTop       =   4215
   ClientWidth     =   5520
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3645
   ScaleWidth      =   5520
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00000000&
      Height          =   1350
      Left            =   3360
      Picture         =   "Form2.frx":0000
      ScaleHeight     =   1290
      ScaleWidth      =   1770
      TabIndex        =   7
      Top             =   60
      Visible         =   0   'False
      Width           =   1830
   End
   Begin VB.PictureBox Picture2 
      Height          =   1335
      Left            =   3360
      ScaleHeight     =   1275
      ScaleWidth      =   1740
      TabIndex        =   6
      Top             =   60
      Visible         =   0   'False
      Width           =   1800
   End
   Begin VB.TextBox Text1 
      Height          =   915
      Left            =   960
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Text            =   "Form2.frx":0923
      Top             =   1860
      Width           =   4275
   End
   Begin VB.CommandButton Command1 
      Caption         =   "关闭"
      Height          =   330
      Left            =   3720
      TabIndex        =   0
      Top             =   3060
      Width           =   1545
   End
   Begin VB.PictureBox Picture3 
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   1335
      Left            =   120
      ScaleHeight     =   1335
      ScaleWidth      =   1695
      TabIndex        =   5
      ToolTipText     =   "我!"
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "注册单位:山西旅游商务预定中心"
      Height          =   180
      Left            =   960
      TabIndex        =   4
      Top             =   1560
      Width           =   2610
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "版本:1.0"
      Height          =   180
      Left            =   960
      TabIndex        =   3
      Top             =   1260
      Width           =   720
   End
   Begin VB.Label Label1 
      Caption         =   "版权所有:卓阳软件工作室 2002.5-2003.12"
      Height          =   435
      Left            =   1020
      TabIndex        =   2
      Top             =   3000
      Width           =   2595
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim patfade As PatternFade


Private Sub Form_Load()
Picture3.BackColor = &H8000000F
    Set patfade = New PatternFade
    Set patfade.pic1 = Picture1
    Set patfade.pic2 = Picture2
    Set patfade.pic3 = Picture3
    patfade.Setup
End Sub

Private Sub Picture3_Click()
Picture3.BackColor = &H0&
Dim i As Integer
patfade.FadeIn 100
patfade.FadeOut 100
Picture3.BackColor = &H8000000F

End Sub