VERSION 5.00
Begin VB.UserControl UserControl1 
   AutoRedraw      =   -1  'True
   ClientHeight    =   2490
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   1725
   PropertyPages   =   "UserControl1.ctx":0000
   ScaleHeight     =   2490
   ScaleWidth      =   1725
   Begin VB.PictureBox picActiveTab 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   120
      ScaleHeight     =   375
      ScaleWidth      =   1215
      TabIndex        =   2
      Top             =   840
      Width           =   1215
   End
   Begin VB.PictureBox picMouseOverTab 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   120
      ScaleHeight     =   375
      ScaleWidth      =   1215
      TabIndex        =   1
      Top             =   1320
      Width           =   1215
   End
   Begin VB.PictureBox picNormTab 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   120
      ScaleHeight     =   375
      ScaleWidth      =   1215
      TabIndex        =   0
      Top             =   1800
      Width           =   1215
   End
End
Attribute VB_Name = "UserControl1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "PropPageWizardRun" ,"Yes"
Option Explicit


Dim m_TabPicNormal As Picture
Dim m_TabPicMouseOver As Picture
Dim m_TabPicActive As Picture

Dim m_SeedProp As Long

Public Property Get SeedProp() As Long
Attribute SeedProp.VB_ProcData.VB_Invoke_Property = "Dummy"
    SeedProp = m_SeedProp
End Property
Public Property Let SeedProp(ByVal New_SeedProp As Long)
    m_SeedProp = New_SeedProp
End Property


Public Property Get TabPicActive() As Picture
    Set TabPicActive = m_TabPicActive
End Property

Public Property Set TabPicActive(ByVal New_TabPicActive As Picture)
    Set m_TabPicActive = New_TabPicActive
    Set picActiveTab.Picture = m_TabPicNormal
    picActiveTab.Refresh
    PropertyChanged "TabPicActive"
'An extra test
On Error GoTo NoPic:
UserControl.PaintPicture m_TabPicNormal, 0, 0
NoPic:
End Property

Public Property Get TabPicNormal() As Picture
    Set TabPicNormal = m_TabPicNormal
End Property

Public Property Set TabPicNormal(ByVal New_TabPicNormal As Picture)
    Set m_TabPicNormal = New_TabPicNormal
    Set picNormTab.Picture = m_TabPicNormal
    picNormTab.Refresh
    PropertyChanged "TabPicNormal"
End Property

Public Property Get TabPicMouseOver() As Picture
    Set TabPicMouseOver = m_TabPicMouseOver
End Property

Public Property Set TabPicMouseOver(ByVal New_TabPicMouseOver As Picture)
    Set m_TabPicMouseOver = New_TabPicMouseOver
    Set picMouseOverTab.Picture = m_TabPicNormal
    picMouseOverTab.Refresh
    PropertyChanged "TabPicMouseOver"
End Property

Private Sub UserControl_InitProperties()

'    Set m_TabPicNormal = LoadPicture("")
'    Set m_TabPicMouseOver = LoadPicture("")
'    Set m_TabPicActive = LoadPicture("")
End Sub

'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    Set m_TabPicActive = PropBag.ReadProperty("TabPicActive", Nothing)
    Set m_TabPicNormal = PropBag.ReadProperty("TabPicNormal", Nothing)
    Set m_TabPicMouseOver = PropBag.ReadProperty("TabPicMouseOver", Nothing)
End Sub

'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

'    Call PropBag.WriteProperty("TabPicActive", m_TabPicActive, Nothing)
'    Call PropBag.WriteProperty("TabPicNormal", m_TabPicNormal, Nothing)
'    Call PropBag.WriteProperty("TabPicMouseOver", m_TabPicMouseOver, Nothing)
    
    
    Call PropBag.WriteProperty("TabPicActive", m_TabPicActive, Nothing)
    Call PropBag.WriteProperty("TabPicMouseOver", m_TabPicMouseOver, Nothing)
    Call PropBag.WriteProperty("TabPicNormal", picNormTab.Picture, Nothing)
End Sub