VERSION 5.00
Begin VB.Form Frmsp 
   BackColor       =   &H80000009&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "走进奥运"
   ClientHeight    =   9495
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   10170
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "屏保.frx":0000
   ScaleHeight     =   9495
   ScaleWidth      =   10170
   WindowState     =   2  'Maximized
   Begin VB.Timer Tmr2 
      Interval        =   10000
      Left            =   4200
      Top             =   120
   End
   Begin VB.CommandButton Cmdin 
      Caption         =   "进入系统"
      Enabled         =   0   'False
      Height          =   495
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   1455
   End
   Begin VB.Timer tmr1 
      Interval        =   100
      Left            =   2280
      Top             =   120
   End
   Begin VB.Label Lbl1 
      AutoSize        =   -1  'True
      BackColor       =   &H8000000E&
      Caption         =   "同一个世界 同一个梦想"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   72
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H008080FF&
      Height          =   1455
      Left            =   0
      TabIndex        =   0
      Top             =   8880
      Width           =   15120
   End
End
Attribute VB_Name = "Frmsp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
   frmpw.Show         '显示窗体frmpw
   'Frmsp.Picture = LoadPicture("../北京奥运吉祥物.bmp")
   Lbl1.Caption = "同一个世界 同一个梦想"
   Lbl1.Left = Frmsp.Width                     '标签距离窗体左边框的初始距离
   Cmdin.Enabled = False                         '标识为“进入系统”的命令按钮失效
End Sub
Rem 用于清除屏幕随机圆的时钟
Private Sub Tmr2_Timer()
  Frmsp.Cls    '每隔10秒钟清屏一次
End Sub

Rem 奥运口号的移动控制
Private Sub Tmr1_Timer()
    Randomize
    x = Int(Rnd * 15000) + 200       '圆心的横坐标
    y = Int(Rnd * 7500) + 200        '圆心的纵坐标
    rr = Int(Rnd * 600) + 200        '圆的半径
    r = Int(Rnd * 256)               '圆的红原色
    g = Int(Rnd * 256)               '圆的绿原色
    b = Int(Rnd * 256)               '圆的兰原色
    Frmsp.Circle (x, y), rr, RGB(r, g, b)       '随机多彩圆
    Lbl1.Left = Lbl1.Left - 100
    If Lbl1.Left < -Lbl1.Width Then
       Lbl1.Left = Frmsp.Width
    End If
End Sub
Private Sub Cmdin_Click()
   End                     '请将本段程序改为与标识功能相同的程序
End Sub

