VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BD0C1912-66C3-49CC-8B12-7B347BF6C846}#13.0#0"; "CODEJO~1.OCX"
Object = "{CB9331C5-4A52-45B1-B34A-36C0DE0F96A5}#1.0#0"; "WelchUserControl.ocx"
Begin VB.Form ATM 
   BackColor       =   &H80000009&
   BorderStyle     =   0  'None
   Caption         =   "Welcome To State Bank Of India ATM"
   ClientHeight    =   11010
   ClientLeft      =   300
   ClientTop       =   2250
   ClientWidth     =   15240
   LinkTopic       =   "Form1"
   ScaleHeight     =   11010
   ScaleWidth      =   15240
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Menu 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   6015
      Left            =   10200
      ScaleHeight     =   6015
      ScaleWidth      =   5415
      TabIndex        =   23
      Top             =   2520
      Width           =   5415
      Begin vkUserContolsXP.vkCommand cmdDeposit 
         Height          =   735
         Left            =   120
         TabIndex        =   24
         Top             =   1200
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   1296
         BackColor1      =   33023
         BackColor2      =   16777215
         BackColorPushed1=   16576
         BackColorPushed2=   16777215
         BackGradient    =   1
         Caption         =   "Deposit Cash"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Palatino Linotype"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   4210752
         BorderColor     =   16777215
         DrawFocus       =   0   'False
         DrawMouseInRect =   0   'False
         DisabledBackColor=   12640511
         CustomStyle     =   0
      End
      Begin vkUserContolsXP.vkCommand cmdInquiry 
         Height          =   735
         Left            =   120
         TabIndex        =   25
         Top             =   2160
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   1296
         BackColor1      =   33023
         BackColor2      =   16777215
         BackColorPushed1=   16576
         BackColorPushed2=   16777215
         BackGradient    =   1
         Caption         =   "Cash Inquiry"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Palatino Linotype"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   4210752
         BorderColor     =   16777215
         DrawFocus       =   0   'False
         DrawMouseInRect =   0   'False
         DisabledBackColor=   12640511
         CustomStyle     =   0
      End
      Begin vkUserContolsXP.vkCommand cmdPIN 
         Height          =   735
         Left            =   120
         TabIndex        =   26
         Top             =   3120
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   1296
         BackColor1      =   33023
         BackColor2      =   16777215
         BackColorPushed1=   16576
         BackColorPushed2=   16777215
         BackGradient    =   1
         Caption         =   "Change PIN"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Palatino Linotype"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   4210752
         BorderColor     =   16777215
         DrawFocus       =   0   'False
         DrawMouseInRect =   0   'False
         DisabledBackColor=   12640511
         CustomStyle     =   0
      End
      Begin vkUserContolsXP.vkCommand cmdMTransfer 
         Height          =   735
         Left            =   120
         TabIndex        =   27
         Top             =   4080
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   1296
         BackColor1      =   33023
         BackColor2      =   16777215
         BackColorPushed1=   16576
         BackColorPushed2=   16777215
         BackGradient    =   1
         Caption         =   "Money Transfer"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Palatino Linotype"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   4210752
         BorderColor     =   16777215
         DrawFocus       =   0   'False
         DrawMouseInRect =   0   'False
         DisabledBackColor=   12640511
         CustomStyle     =   0
      End
      Begin vkUserContolsXP.vkCommand cmdCashWD 
         Height          =   735
         Left            =   120
         TabIndex        =   35
         Top             =   240
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   1296
         BackColor1      =   33023
         BackColor2      =   16777215
         BackColorPushed1=   16576
         BackColorPushed2=   16777215
         BackGradient    =   1
         Caption         =   "Cash Withdrawl"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Palatino Linotype"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   4210752
         BorderColor     =   16777215
         DrawFocus       =   0   'False
         DrawMouseInRect =   0   'False
         DisabledBackColor=   12640511
         CustomStyle     =   0
      End
      Begin vkUserContolsXP.vkCommand cmdExit 
         Height          =   735
         Left            =   120
         TabIndex        =   45
         Top             =   5040
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   1296
         BackColor1      =   33023
         BackColor2      =   16777215
         BackColorPushed1=   16576
         BackColorPushed2=   16777215
         BackGradient    =   1
         Caption         =   "Log Out"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Palatino Linotype"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   4210752
         BorderColor     =   16777215
         DrawFocus       =   0   'False
         DrawMouseInRect =   0   'False
         DisabledBackColor=   12640511
         CustomStyle     =   0
      End
   End
   Begin VB.PictureBox LogOut 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   5775
      Left            =   10560
      ScaleHeight     =   5775
      ScaleWidth      =   5535
      TabIndex        =   41
      Top             =   2760
      Visible         =   0   'False
      Width           =   5535
      Begin vkUserContolsXP.vkCommand cmdLogOut 
         Height          =   735
         Left            =   120
         TabIndex        =   42
         Top             =   4680
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   1296
         BackColor1      =   33023
         BackColor2      =   16777215
         BackColorPushed1=   16576
         BackColorPushed2=   16777215
         BackGradient    =   1
         Caption         =   "Log Out"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Palatino Linotype"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   4210752
         BorderColor     =   16777215
         DrawFocus       =   0   'False
         DrawMouseInRect =   0   'False
         DisabledBackColor=   12640511
         CustomStyle     =   0
      End
      Begin VB.Image Image3 
         Height          =   2520
         Left            =   1320
         Picture         =   "ATM.frx":0000
         Stretch         =   -1  'True
         Top             =   1080
         Width           =   2280
      End
   End
   Begin VB.PictureBox Screen 
      BackColor       =   &H000080FF&
      BorderStyle     =   0  'None
      Height          =   7455
      Left            =   0
      ScaleHeight     =   7455
      ScaleWidth      =   9855
      TabIndex        =   0
      Top             =   1800
      Width           =   9855
      Begin VB.Timer timerPBar 
         Enabled         =   0   'False
         Interval        =   40
         Left            =   8880
         Top             =   4320
      End
      Begin VB.Timer tmrWait2 
         Enabled         =   0   'False
         Interval        =   1000
         Left            =   8880
         Top             =   3720
      End
      Begin VB.Timer tmrWait 
         Enabled         =   0   'False
         Interval        =   1000
         Left            =   8880
         Tag             =   "1"
         Top             =   3120
      End
      Begin VB.PictureBox KEYS 
         BackColor       =   &H000080FF&
         Height          =   3375
         Left            =   1320
         ScaleHeight     =   3315
         ScaleWidth      =   6795
         TabIndex        =   7
         Top             =   3240
         Visible         =   0   'False
         Width           =   6855
         Begin VB.CommandButton cmdClear 
            Caption         =   "C"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   2400
            TabIndex        =   34
            Top             =   2880
            Width           =   2055
         End
         Begin VB.CommandButton Digit1 
            Caption         =   "1"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   840
            TabIndex        =   19
            Top             =   120
            Width           =   1215
         End
         Begin VB.CommandButton Digit2 
            Caption         =   "2"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   2160
            TabIndex        =   18
            Top             =   120
            Width           =   1215
         End
         Begin VB.CommandButton Digit3 
            Caption         =   "3"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   3480
            TabIndex        =   17
            Top             =   120
            Width           =   1215
         End
         Begin VB.CommandButton Digit4 
            Caption         =   "4"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   840
            TabIndex        =   16
            Top             =   1080
            Width           =   1215
         End
         Begin VB.CommandButton Digit5 
            Caption         =   "5"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   2160
            TabIndex        =   15
            Top             =   1080
            Width           =   1215
         End
         Begin VB.CommandButton Digit6 
            Caption         =   "6"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   3480
            TabIndex        =   14
            Top             =   1080
            Width           =   1215
         End
         Begin VB.CommandButton Digit7 
            Caption         =   "7"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   840
            TabIndex        =   13
            Top             =   2040
            Width           =   1215
         End
         Begin VB.CommandButton Digit8 
            Caption         =   "8"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   2160
            TabIndex        =   12
            Top             =   2040
            Width           =   1215
         End
         Begin VB.CommandButton Digit9 
            Caption         =   "9"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   3480
            TabIndex        =   11
            Top             =   2040
            Width           =   1215
         End
         Begin VB.CommandButton Digit0 
            Caption         =   "0"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   4800
            TabIndex        =   9
            Top             =   1080
            Width           =   1215
         End
         Begin VB.CommandButton cmdCancel 
            Caption         =   "Cancel"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   4800
            TabIndex        =   8
            Top             =   2040
            Width           =   1215
         End
         Begin VB.CommandButton cmdOK 
            Caption         =   "OK"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   4800
            TabIndex        =   10
            Top             =   120
            Width           =   1215
         End
         Begin VB.CommandButton cmdOK2 
            Caption         =   "OK"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   4800
            TabIndex        =   28
            Top             =   120
            Visible         =   0   'False
            Width           =   1215
         End
         Begin VB.CommandButton cmdOK1 
            Caption         =   "OK"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   4800
            TabIndex        =   29
            Top             =   120
            Width           =   1215
         End
         Begin VB.CommandButton cmdOK3 
            Caption         =   "OK"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   735
            Left            =   4800
            TabIndex        =   33
            Top             =   120
            Width           =   1215
         End
      End
      Begin VB.TextBox txtPassword 
         Alignment       =   2  'Center
         BackColor       =   &H000080FF&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   24
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         IMEMode         =   3  'DISABLE
         Left            =   2400
         MaxLength       =   4
         TabIndex        =   20
         Top             =   2040
         Visible         =   0   'False
         Width           =   4335
      End
      Begin VB.CommandButton cmdOKCash 
         Caption         =   "OK"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3960
         TabIndex        =   30
         Top             =   4200
         Visible         =   0   'False
         Width           =   1575
      End
      Begin MSComctlLib.ProgressBar PBar 
         Height          =   375
         Left            =   1560
         TabIndex        =   31
         Top             =   5160
         Visible         =   0   'False
         Width           =   7095
         _ExtentX        =   12515
         _ExtentY        =   661
         _Version        =   393216
         Appearance      =   1
      End
      Begin VB.Label lblUser 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000000&
         Height          =   570
         Left            =   1320
         TabIndex        =   43
         Top             =   120
         Width           =   105
      End
      Begin VB.Label lblThanks 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Thanks For Using ATM Service."
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   1680
         TabIndex        =   40
         Top             =   5280
         Visible         =   0   'False
         Width           =   6135
      End
      Begin VB.Label lblACNo 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "AC No."
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   6480
         TabIndex        =   39
         Top             =   2280
         Visible         =   0   'False
         Width           =   1440
      End
      Begin VB.Label lblACMsg 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Your Account No. is :"
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   480
         TabIndex        =   38
         Top             =   2280
         Visible         =   0   'False
         Width           =   4140
      End
      Begin VB.Label lblCashMsg 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Your Current Balance is :"
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   480
         TabIndex        =   37
         Top             =   3480
         Visible         =   0   'False
         Width           =   4830
      End
      Begin VB.Label lblCurrentCash 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Current Cash"
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   6480
         TabIndex        =   36
         Top             =   3480
         Visible         =   0   'False
         Width           =   2610
      End
      Begin VB.Label lblPer 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   4800
         TabIndex        =   32
         Top             =   4800
         Visible         =   0   'False
         Width           =   60
      End
      Begin VB.Label lblHello 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Hello"
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000000&
         Height          =   570
         Left            =   120
         TabIndex        =   22
         Top             =   120
         Width           =   1035
      End
      Begin VB.Label lblUserName 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000000&
         Height          =   570
         Left            =   1440
         TabIndex        =   21
         Top             =   120
         Width           =   105
      End
      Begin VB.Label lblScreenLogo 
         BackStyle       =   0  'Transparent
         Caption         =   "SBI ATM "
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   36
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000000&
         Height          =   735
         Left            =   6840
         TabIndex        =   6
         Top             =   6600
         Width           =   2775
      End
      Begin VB.Label lblDetail 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "SBI ATM Services"
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   3120
         TabIndex        =   3
         Top             =   2640
         Width           =   3420
      End
      Begin VB.Label lblWelcome 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Welocme To State Bank Of India ATM Service"
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   570
         Left            =   360
         TabIndex        =   2
         Top             =   1320
         Width           =   8880
      End
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   " With You - All The Way"
      BeginProperty Font 
         Name            =   "Monotype Corsiva"
         Size            =   21.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   540
      Left            =   5280
      TabIndex        =   44
      Top             =   9960
      Width           =   4365
   End
   Begin VB.Image imgHome 
      Height          =   720
      Left            =   19320
      MouseIcon       =   "ATM.frx":12721
      MousePointer    =   99  'Custom
      Picture         =   "ATM.frx":12A2B
      Top             =   480
      Visible         =   0   'False
      Width           =   720
   End
   Begin VB.Image Image2 
      Height          =   1650
      Left            =   0
      Picture         =   "ATM.frx":1456D
      Stretch         =   -1  'True
      Top             =   9360
      Width           =   3030
   End
   Begin VB.Image Image1 
      Height          =   1695
      Left            =   11880
      Picture         =   "ATM.frx":16C54
      Stretch         =   -1  'True
      Top             =   9360
      Width           =   3405
   End
   Begin XtremeSkinFramework.SkinFramework Skin 
      Left            =   720
      Top             =   720
      _Version        =   851968
      _ExtentX        =   635
      _ExtentY        =   635
      _StockProps     =   0
   End
   Begin VB.Label Label4 
      BackColor       =   &H000080FF&
      Height          =   135
      Left            =   9840
      TabIndex        =   5
      Top             =   9120
      Width           =   10575
   End
   Begin VB.Label Label3 
      BackColor       =   &H000080FF&
      Height          =   135
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   20415
   End
   Begin VB.Image SBI_Logo 
      Height          =   990
      Left            =   6240
      Picture         =   "ATM.frx":1C25B
      Top             =   480
      Width           =   3540
   End
   Begin VB.Label Label11 
      BackColor       =   &H000080FF&
      Height          =   135
      Left            =   0
      TabIndex        =   1
      Top             =   1680
      Width           =   20415
   End
End
Attribute VB_Name = "ATM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim AC                   As Double
Dim Amount               As Integer

Dim SQL                     As String
Dim Counter                 As Integer

Private Sub cmdCancel_Click()
txtPassword.Visible = False
lblWelcome.Caption = "Welcome To State Bank Of India ATM Services"
KEYS.Visible = False
Menu.Visible = True
End Sub

Private Sub cmdCashWD_Click()
Menu.Visible = False
KEYS.Visible = True                             ' cmdOK button will be processed.

lblWelcome.Caption = "Enter Your Amount"
lblDetail.Visible = False
txtPassword.Visible = True
txtPassword.Text = ""
End Sub

Private Sub cmdClear_Click()
If Trim(txtPassword.Text) = "" Then
    Exit Sub
Else
    txtPassword.SelStart = Len(txtPassword.Text) - 1
    txtPassword.SelLength = Len(txtPassword.Text)
    txtPassword.SelText = ""
End If
End Sub

Private Sub cmdDeposit_Click()
Menu.Visible = False
lblWelcome.Visible = False
lblDetail.Caption = "SBI ATM System"
CashDeposit.Show 1
End Sub

Private Sub cmdExit_Click()
rsAccount.Close
Unload ATM
Load Home
Home.Show
End Sub

Private Sub cmdInquiry_Click()
   lblWelcome.Visible = False
   lblDetail.Visible = False
   lblCashMsg.Visible = True
   lblACMsg.Visible = True
   lblCurrentCash.Caption = rsAccount.Fields("Cash") & " Rs."
   lblACNo.Caption = rsAccount.Fields("acnumber")
   lblCurrentCash.Visible = True
   lblACNo.Visible = True
   
   lblThanks.Visible = True
   Menu.Visible = False
   rsAccount.Close
   LogOut.Visible = True
End Sub

Private Sub cmdLogOut_Click()
    Unload ATM
    Load Home
    Home.Show
End Sub

Private Sub cmdMTransfer_Click()
    Menu.Visible = False
    KEYS.Visible = True
    cmdOK.Visible = False
    cmdOK1.Visible = True                           ' cmdOK1 button will be processed.
    
    lblWelcome.Caption = "Enter Account Number"
    lblDetail.Visible = False
    txtPassword.MaxLength = 5
    txtPassword.Visible = True
    txtPassword.Text = ""
End Sub

Private Sub cmdOK_Click()
Dim Cash As Double, WDCash As Double
    WDCash = Val(txtPassword.Text)
    If WDCash <= rsAccount.Fields("Cash") Then
        Cash = rsAccount.Fields("Cash")
        Cash = Cash - WDCash                ' Used In Cash Withdrawl
        rsAccount.Fields("Cash") = Cash
        rsAccount.Update
        rsAccount.Close
        lblWelcome.Visible = False
        txtPassword.Visible = False
        KEYS.Visible = False
        lblDetail.Left = 1200
        lblDetail.Caption = "Your transaction is being processed..."
        lblDetail.Visible = True
        tmrWait.Enabled = True              ' Calling tmrWait For Delay Msg
     Else
        MsgBox "Your Account Contains Zero Balance!", vbExclamation, "SBI ATM Msg"
    End If
End Sub

Private Sub cmdOK3_Click()
Encrypt (txtPassword.Text)
rsAccount.Fields("PIN") = pwdEncrypted
rsAccount.Update
KEYS.Visible = False
txtPassword.Visible = False
lblWelcome.Visible = False
lblDetail.Caption = "Your PIN Has Been Changed." & Chr(13) & "   Thanx For Banking With Us!"
rsAccount.Close
lblDetail.Visible = True
LogOut.Visible = True
End Sub

Private Sub cmdOKCash_Click()
cmdOKCash.Visible = False
lblDetail.Caption = "Thanks For Banking With Us!"
End Sub

Private Sub tmrWait_Timer()
If Counter > 5 Then
    lblDetail.Left = 2500
    lblDetail.Caption = "Please Collect Your Cash."
    rsAccount.Close
    tmrWait.Enabled = False
    cmdOKCash.Visible = True                 ' Calling cmdOKCash Button For Delay Msg
    Counter = 0
    LogOut.Visible = True
Else
    Counter = Counter + 1
End If
End Sub

Private Sub cmdOK1_Click()
AC = Val(txtPassword.Text)                   ' Used In Money Transfer

rsTransfer.Open "Select * From tblUser Where ACNumber =" & AC, CON, adOpenStatic, adLockOptimistic

If AC = rsAccount.Fields("ACNumber") Then
    MsgBox "Sorry! You can not transfer money to your own acccount.", vbExclamation, "Money Transfer Msg"
    rsTransfer.Close
    Exit Sub
        ElseIf rsTransfer.RecordCount > 0 Then
        
            lblWelcome.Caption = "Enter Amount"
        
            txtPassword.MaxLength = 4
            txtPassword.Visible = True
            txtPassword.Text = ""
            
            cmdOK.Visible = False
            cmdOK1.Visible = False                  ' After setting amount for transfer
            cmdOK2.Visible = True                   ' cmdOK2 button will be processed.
    Else
            MsgBox "Account Number does not exists. Please type correct account number", vbInformation, "SBI ATM Msg"
            rsTransfer.Close
            Exit Sub
End If
End Sub


Private Sub cmdOK2_Click()
Dim WDCash As Double, MTCash As Double
Amount = Val(txtPassword.Text)
SQL = "Select * from tblUser Where ACNumber =" & AC
rsMT.Open SQL, CON, adOpenStatic, adLockOptimistic

    WDCash = Val(rsAccount.Fields("Cash"))
    MTCash = Val(rsMT.Fields("Cash"))

WDCash = WDCash - Amount
MTCash = MTCash + Amount                    ' Used In Money Transfer

    rsAccount.Fields("Cash") = WDCash
    rsMT.Fields("Cash") = MTCash
    
rsAccount.Update
rsMT.Update

    rsMT.Close
    rsAccount.Close
    
KEYS.Visible = False
lblWelcome.Visible = False
txtPassword.Visible = False
lblDetail.Caption = "Transferring Money..."
lblDetail.Visible = True
PBar.Visible = True
timerPBar.Enabled = True
End Sub
Private Sub timerPBar_Timer()
lblPer.Visible = True
If PBar.Value = 100 Then
    lblPer.Caption = "100%"
   lblDetail.Left = 2000
   lblDetail.Caption = "Money Successfully Transferred!" & Chr(13) & "    Thanx For Banking With Us!"
   rsAccount.Close
   timerPBar.Enabled = False
   LogOut.Visible = True
Else
   lblPer.Caption = PBar.Value & "%"
   PBar.Value = PBar.Value + 1
End If
End Sub


Private Sub cmdPIN_Click()
Menu.Visible = False
lblDetail.Visible = False
lblWelcome.Caption = "Enter Your New PIN"
txtPassword.Visible = True
txtPassword.Text = ""
    If rsAccount.RecordCount > 0 Then
        KEYS.Visible = True
        txtPassword.Text = ""
        txtPassword.Visible = True
        cmdOK.Visible = False
        cmdOK1.Visible = False
        cmdOK2.Visible = False
        cmdOK3.Visible = True
    Else
        MsgBox "UnSuccessful Connection!"
    End If
End Sub

Private Sub Digit0_Click()
txtPassword.SelText = "0"
End Sub

Private Sub Digit1_Click()
txtPassword.SelText = "1"
End Sub

Private Sub Digit2_Click()
txtPassword.SelText = "2"
End Sub

Private Sub Digit3_Click()
txtPassword.SelText = "3"
End Sub

Private Sub Digit4_Click()
txtPassword.SelText = "4"
End Sub

Private Sub Digit5_Click()
txtPassword.SelText = "5"
End Sub

Private Sub Digit6_Click()
txtPassword.SelText = "6"
End Sub

Private Sub Digit7_Click()
txtPassword.SelText = "7"
End Sub

Private Sub Digit8_Click()
txtPassword.SelText = "8"
End Sub

Private Sub Digit9_Click()
txtPassword.SelText = "9"
End Sub

Public Sub LoadTheme()
Dim Descriptions As SkinDescriptions
    Set Descriptions = Skin.EnumerateSkinDirectory(App.Path + "\Resources\Theme\blue", True)
        
    Skin.LoadSkin App.Path + "\Resources\Theme\blue", ""
    Skin.ApplyWindow Me.hwnd
    Skin.ApplyOptions = Skin.ApplyOptions Or xtpSkinApplyMetrics
End Sub

Private Sub Form_Load()
LoadTheme
lblUser.Caption = rsAccount.Fields("UserName")
End Sub
