这是一个用VB编写的在线考试系统

				VERSION 5.00
				Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
				Begin VB.Form Form3 
				   BorderStyle     =   0  'None
				   Caption         =   "Form3"
				   ClientHeight    =   2250
				   ClientLeft      =   3945
				   ClientTop       =   4290
				   ClientWidth     =   5940
				   LinkTopic       =   "Form3"
				   ScaleHeight     =   2250
				   ScaleWidth      =   5940
				   ShowInTaskbar   =   0   'False
				   StartUpPosition =   2  '屏幕中心
				   Begin ComCtl2.Animation Animation1 
				      Height          =   735
				      Left            =   240
				      TabIndex        =   2
				      Top             =   480
				      Width           =   5415
				      _ExtentX        =   9551
				      _ExtentY        =   1296
				      _Version        =   327681
				      Center          =   -1  'True
				      FullWidth       =   361
				      FullHeight      =   49
				   End
				   Begin VB.TextBox Text1 
				      Enabled         =   0   'False
				      Height          =   375
				      Left            =   1800
				      TabIndex        =   1
				      Top             =   1630
				      Width           =   3135
				   End
				   Begin VB.Label Label2 
				      Caption         =   "正在接收考卷。。。"
				      Height          =   255
				      Left            =   240
				      TabIndex        =   3
				      Top             =   120
				      Width           =   2055
				   End
				   Begin VB.Label Label1 
				      Caption         =   "正在传输的考卷..."
				      Height          =   255
				      Left            =   240
				      TabIndex        =   0
				      Top             =   1680
				      Width           =   1815
				   End
				End
				Attribute VB_Name = "Form3"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Private Sub Form_Load()
				Animation1.Open App.Path & "\send.avi"
				Animation1.AutoPlay = True
				End Sub