irfanheader.ctl

This application i made for handle simple finance this project using VB 6.0, SQL Server 2000 wit

VERSION 5.00
Begin VB.UserControl IrfanHeader 
   Alignable       =   -1  'True
   BackColor       =   &H00EED8CC&
   CanGetFocus     =   0   'False
   ClientHeight    =   825
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6195
   BeginProperty Font 
      Name            =   "Verdana"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LockControls    =   -1  'True
   ScaleHeight     =   55
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   413
   ToolboxBitmap   =   "IrfanHeader.ctx":0000
   Begin VB.Shape shpLine 
      BackColor       =   &H00D8AF92&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   90
      Left            =   0
      Top             =   750
      Width           =   6240
   End
   Begin VB.Label lblText 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Header"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00704427&
      Height          =   435
      Left            =   300
      TabIndex        =   0
      Top             =   150
      UseMnemonic     =   0   'False
      Width           =   1275
   End
End
Attribute VB_Name = "IrfanHeader"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False


Option Explicit


Private Sub UserControl_Resize()

  UserControl.Height = 52 * 16
  shpLine.Width = UserControl.ScaleWidth + 1

End Sub

Public Property Get Text() As String

  Text = lblText.Caption

End Property

Public Property Let Text(ByVal newText As String)

  lblText.Caption = newText
  Call PropertyChanged("Text")

End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

  lblText.Caption = PropBag.ReadProperty("Text", "Header")

End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

  Call PropBag.WriteProperty("Text", lblText.Caption, "Header")

End Sub