frmsidebar.frm

This file came from Planet-Source-Code.com...the home millions of lines of source code You can view

         Width           =   2175
         Begin MSComctlLib.TreeView TreeView1 
            Height          =   3600
            Left            =   0
            TabIndex        =   7
            Top             =   0
            Width           =   2115
            _ExtentX        =   3731
            _ExtentY        =   6350
            _Version        =   393217
            HideSelection   =   0   'False
            Indentation     =   529
            LabelEdit       =   1
            LineStyle       =   1
            Style           =   7
            FullRowSelect   =   -1  'True
            SingleSel       =   -1  'True
            ImageList       =   "ImageList1"
            Appearance      =   0
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
      End
      Begin VB.Image Image3 
         Height          =   240
         Left            =   120
         Picture         =   "frmSideBar.frx":60F6
         Top             =   0
         Width           =   240
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "      TODAY"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   855
      Left            =   120
      TabIndex        =   0
      Top             =   6600
      Width           =   2655
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   2040
         Top             =   240
      End
      Begin VB.Label Label1 
         Caption         =   "Date:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label2 
         Caption         =   "11/23/03"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   720
         TabIndex        =   3
         Top             =   240
         Width           =   1935
      End
      Begin VB.Label Label3 
         Caption         =   "Time:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   480
         Width           =   495
      End
      Begin VB.Label Label4 
         Caption         =   "04:12 AM"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   720
         TabIndex        =   1
         Top             =   480
         Width           =   1815
      End
      Begin VB.Image Image4 
         Height          =   240
         Left            =   120
         Picture         =   "frmSideBar.frx":6480
         Top             =   0
         Width           =   240
      End
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   2040
      Top             =   4800
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   9
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSideBar.frx":680A
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSideBar.frx":6BA4
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSideBar.frx":6F48
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSideBar.frx":72EC
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSideBar.frx":7690
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSideBar.frx":7A34
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSideBar.frx":7DD8
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSideBar.frx":8174
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSideBar.frx":8510
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin vbskpro.Skinner Skinner1 
      Left            =   2040
      Top             =   5280
      _ExtentX        =   1270
      _ExtentY        =   1270
      OldForeColor    =   0
      SysDisableSkinCaption=   "&Disable Skin"
      LcK1            =   "3.66*/4/0*/1-5*210/."
      LcK2            =   $"frmSideBar.frx":88AC
      AmbientB        =   ";<=>?7B:><7=<A<7CC;@"
   End
End
Attribute VB_Name = "frmSideBar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Shell "Notepad.exe", vbNormalFocus
End Sub

Private Sub Command2_Click()
Shell "calc.exe", vbNormalFocus
End Sub

Private Sub Command3_Click()
MDIMain.chngPass_Click
End Sub

Private Sub Command4_Click()
    Skinner1.Enabled = Not Skinner1.Enabled
    If Skinner1.Enabled Then
        Command4.Caption = "Disable &skin"
    Else
        Command4.Caption = "Enable &skin"
    End If
End Sub

Private Sub Command5_Click()
MDIMain.logoff_Click
End Sub

Private Sub Command6_Click()

Unload MDIMain
End Sub

Private Sub Form_Load()
Me.Left = 0
Me.Top = 0

Text1.Text = "Logged in as : " & User
Text2.Text = LogTime
Label2.Caption = Date

End Sub

Private Sub Form_Unload(Cancel As Integer)
MDIMain.sidebar.Checked = False
End Sub

Private Sub Timer1_Timer()
Label4.Caption = Time
End Sub