secondcontrol.ctl

此源码为vb圣经编码

VERSION 5.00
Begin VB.UserControl SecondControl 
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5460
   ScaleHeight     =   3600
   ScaleWidth      =   5460
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "This control was loaded by the first"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   870
      Left            =   60
      TabIndex        =   0
      Top             =   210
      Width           =   5205
      WordWrap        =   -1  'True
   End
End
Attribute VB_Name = "SecondControl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'***************************************************************
' (c) Copyright 2000 Matthew J. Curland
'
' This file is from the CD-ROM accompanying the book:
' Advanced Visual Basic 6: Power Techniques for Everyday Programs
'   Author: Matthew Curland
'   Published by: Addison-Wesley, July 2000
'   ISBN: 0-201-70712-8
'   http://www.PowerVB.com
'***************************************************************
Option Explicit

Private Sub UserControl_Resize()
    Label1.Width = ScaleWidth
End Sub