form10.frm

简单的通讯薄 名字=文件名=此列为文件名 QQ=验证码=此列为验证码 电话=访问次数=此列为访问次数

VERSION 5.00
Begin VB.Form Form4 
   Caption         =   "源码"
   ClientHeight    =   6375
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6870
   Icon            =   "Form10.frx":0000
   LinkTopic       =   "Form4"
   ScaleHeight     =   6375
   ScaleWidth      =   6870
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox form4 
      Height          =   6375
      Left            =   0
      MaxLength       =   4
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "Form10.frx":038A
      Top             =   0
      Width           =   6855
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
Dim X0 As Long
Dim Y0 As Long
Call GetAppPath
    '让窗体居中
    X0 = Screen.Width
    Y0 = Screen.Height
    X0 = (X0 - Me.Width) / 2
    Y0 = (Y0 - Me.Height) / 2
    Me.Move X0, Y0
    
End Sub