frmwelcome.frm

这是一套超市完整的代码

VERSION 5.00
Begin VB.Form frmWelcome 
   BackColor       =   &H00FDFDFD&
   Caption         =   "欢迎使用本系统"
   ClientHeight    =   6570
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8970
   ControlBox      =   0   'False
   Icon            =   "frmWelcome.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   438
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   598
   WindowState     =   2  'Maximized
   Begin VB.Image imgBack 
      Height          =   4980
      Left            =   1320
      Picture         =   "frmWelcome.frx":000C
      Top             =   840
      Width           =   6000
   End
End
Attribute VB_Name = "frmWelcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Me.WindowState = 2
End Sub

Private Sub Form_Resize()
On Error Resume Next
    imgBack.Move (Width / 15 - imgBack.Width) / 2, (Height / 15 - imgBack.Height) / 2
End Sub