VERSION 5.00
Begin VB.Form Frmabout 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "關于"
   ClientHeight    =   3300
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   Icon            =   "Frmabout.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3300
   ScaleWidth      =   4680
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton Command1 
      Caption         =   "返回"
      Height          =   330
      Left            =   1650
      TabIndex        =   1
      Top             =   2760
      Width           =   1290
   End
   Begin VB.Label Label3 
      Caption         =   "小小收支薄V0.2測試版"
      Height          =   315
      Left            =   1350
      TabIndex        =   3
      Top             =   1890
      Width           =   1935
   End
   Begin VB.Label Label2 
      Caption         =   "Email：siczg@263.net"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   240
      Left            =   930
      MouseIcon       =   "Frmabout.frx":0442
      MousePointer    =   99  'Custom
      TabIndex        =   2
      Top             =   2250
      Width           =   2940
   End
   Begin VB.Label Label1 
      Caption         =   "您若對我的程序有任何意見，請與我聯(lián)系， 也可寫信到江西省貴溪市社會保險事業(yè)管理局，郵編是335400。對了我叫程志剛，別忘了！"
      BeginProperty Font 
         Name            =   "幼圓"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1500
      Left            =   825
      TabIndex        =   0
      Top             =   240
      Width           =   3000
   End
End
Attribute VB_Name = "Frmabout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.MouseIcon = Label2.MouseIcon Then
Me.MousePointer = 0
End If

DrawWidth = 5
Static CX(3) As Single, cy(3) As Single
Dim xx(3) As Single, yy(3) As Single
Dim i As Integer
For i = 0 To 3
PSet (CX(i), cy(i)), Me.BackColor
xx(i) = (Rnd * 500 - 250) + X
yy(i) = (Rnd * 500 - 250) + Y
Next i

For i = 0 To 3
'判斷點是否在3個標簽中，是則不畫并清xx,yy的值'網(wǎng)友王曉明提議改進
    If (xx(i) <= Label1.Left - 30 Or yy(i) <= Label1.Top - 30 Or yy(i) >= Label1.Top + Label1.Height + 30 Or xx(i) >= Label1.Left + Label1.Width + 30) _
    And (xx(i) <= Label2.Left - 30 Or yy(i) <= Label2.Top - 30 Or yy(i) >= Label2.Top + Label2.Height + 30 Or xx(i) >= Label2.Left + Label2.Width + 30) _
    And (xx(i) <= Label3.Left - 30 Or yy(i) <= Label3.Top - 30 Or yy(i) >= Label3.Top + Label3.Height + 30 Or xx(i) >= Label3.Left + Label3.Width + 30) Then
       PSet (xx(i), yy(i)), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Else
       xx(i) = 0
       yy(i) = 0
    End If
    
CX(i) = xx(i)
cy(i) = yy(i)
Next i
DrawWidth = 1
End Sub

Private Sub Label2_Click()
    Const WEB = "mailto:siczg@263.net"
   Dim perjump As Integer ' hyperjumphy
    perjump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
    
End Sub


Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MouseIcon = Label2.MouseIcon
End Sub