www.pudn.com > VBkongjian.rar > frmAbout.frm

VERSION 5.00 
Begin VB.Form frmAbout  
   BackColor       =   &H00FFFFFF& 
   BorderStyle     =   1  'Fixed Single 
   ClientHeight    =   2460 
   ClientLeft      =   2310 
   ClientTop       =   1620 
   ClientWidth     =   5040 
   ControlBox      =   0   'False 
   LinkTopic       =   "Form2" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   Picture         =   "frmAbout.frx":0000 
   ScaleHeight     =   164 
   ScaleMode       =   3  'Pixel 
   ScaleWidth      =   336 
   StartUpPosition =   2  'ÆÁÄ»ÖÐÐÄ 
   Begin VB.Label Label1  
      Appearance      =   0  'Flat 
      AutoSize        =   -1  'True 
      BackColor       =   &H80000005& 
      BackStyle       =   0  'Transparent 
      Caption         =   "¹Ø±Õ" 
      ForeColor       =   &H00C0C0C0& 
      Height          =   180 
      Left            =   4590 
      TabIndex        =   0 
      Top             =   75 
      Visible         =   0   'False 
      Width           =   360 
   End 
End 
Attribute VB_Name = "frmAbout" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private tm As Integer 
 
Private Sub Form_Load() 
tm = 8 
End Sub 
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Label1.ForeColor = &H80000005 
End Sub 
 
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Label1.ForeColor = vb3DDKShadow 
End Sub 
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Label1.ForeColor = vbRed 
End Sub 
 
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    'Unload Me 
End Sub