frmhy.frm

本系统是为了提高腾达公司自动化办公的水平、经过详细的调查分析初步制定了腾达公司库存信息管理系统。基于WINDOWS 98 平台

VERSION 5.00
Begin VB.Form FrmHY 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3030
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4170
   Enabled         =   0   'False
   Icon            =   "FrmHY.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3030
   ScaleWidth      =   4170
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Visible         =   0   'False
End
Attribute VB_Name = "FrmHY"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Initialize()
If App.PrevInstance Then
  MsgBox "本程序正在运行，这个副本将自动结束！"
  End
End If
End Sub

Private Sub Form_Load()
 Call PutWindowOnTop(Me) '调用窗体始终保持最前
Label4.Top = Label1.Top + 50
Label4.Left = Label1.Left + 50
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
        i = Me.Height
    While i >= Picture1.Height
        i = i - 10
        If i > Picture1.Height Then
            Me.Height = i
        Else
            Me.Height = Picture1.Height
        End If
        
        DoEvents
    Wend
    
    i = Me.Top
    i = Me.Top
    While i > 0
        Me.Move Me.Left, i, Me.Width, Me.Height
        i = i - 10
        DoEvents
        
    Wend
    i = Me.Left
    While i < Screen.Width
        Me.Move i, 0, Me.Width, Me.Height
        i = i + 20
        DoEvents
       
    Wend
End Sub