frmmain.frm

利用vb6.0 编写

VERSION 5.00
Object = "{CDFB6048-C2D2-11D3-BEC0-CB586B91B60E}#1.0#0"; "VBAniGIF.ocx"
Begin VB.Form frmMain 
   Caption         =   "Form1"
   ClientHeight    =   3165
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5085
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   5085
   StartUpPosition =   3  '窗口缺省
   Begin VBAniGIF.AniGif AniGif1 
      Height          =   735
      Left            =   1140
      TabIndex        =   1
      Top             =   450
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   1296
      BorderStyle     =   0
      Appearance      =   0
   End
   Begin VBAniGIF.AniGif AniGif2 
      Height          =   885
      Left            =   510
      TabIndex        =   0
      Top             =   1560
      Width           =   1065
      _ExtentX        =   1879
      _ExtentY        =   1561
      Appearance      =   0
   End
   Begin VB.Timer Timer1 
      Left            =   3240
      Top             =   2520
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件说明: 一个可以播放gif文件的控件
'
'
'作者信箱: earn7777@ yahoo.com.cn
'
'作者推荐:
'
'经典小游戏
'http://www.jdxgame.com/index.asp?id=lysyz
'
'
'会员制，为会员提供小游戏下载服务。
'帮助介绍会员还可以获得奖励，千万别错过



Private Sub Form_Load()

frmMain.WindowState = 2
AniGif2.FileName = App.Path & "\" & "6.gif"
AniGif1.FileName = App.Path & "\" & "ts1.gif"
Timer1.Interval = 20
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

AniGif1.Top = AniGif1.Top + 50
AniGif1.Left = AniGif1.Left + 50
If AniGif1.Top > 8000 Then AniGif1.Top = 0
If AniGif1.Left > 7000 Then AniGif1.Left = 0

End Sub