VERSION 5.00
Begin VB.Form frmInsPurchaseOrder 
   BackColor       =   &H00FFFFFF&
   Caption         =   "PURCHASE ORDER ENTRY"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   8595
   ScaleWidth      =   11880
   StartUpPosition =   1  'CenterOwner
   WindowState     =   2  'Maximized
   Begin VB.VScrollBar VScroll1 
      Height          =   3495
      Left            =   11280
      TabIndex        =   136
      Top             =   2400
      Width           =   255
   End
   Begin VB.PictureBox PicPicture 
      Height          =   3495
      Left            =   120
      ScaleHeight     =   3435
      ScaleWidth      =   11235
      TabIndex        =   59
      Top             =   2400
      Width           =   11295
      Begin VB.PictureBox PicWindow 
         Height          =   3615
         Left            =   360
         ScaleHeight     =   3555
         ScaleWidth      =   10755
         TabIndex        =   60
         Top             =   0
         Width           =   10815
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   0
            Left            =   4440
            TabIndex        =   135
            Top             =   0
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   0
            Left            =   0
            TabIndex        =   134
            Top             =   0
            Width           =   4455
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   0
            Left            =   6000
            TabIndex        =   133
            Top             =   0
            Width           =   1335
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   0
            Left            =   8760
            TabIndex        =   132
            Top             =   0
            Width           =   1815
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   0
            Left            =   7440
            TabIndex        =   131
            Top             =   0
            Width           =   1215
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   1
            Left            =   6000
            TabIndex        =   130
            Top             =   360
            Width           =   1335
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   1
            Left            =   8760
            TabIndex        =   129
            Top             =   360
            Width           =   1815
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   1
            Left            =   7440
            TabIndex        =   128
            Top             =   360
            Width           =   1215
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   1
            Left            =   4440
            TabIndex        =   127
            Top             =   360
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   1
            Left            =   0
            TabIndex        =   126
            Top             =   360
            Width           =   4455
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   9
            Left            =   6000
            TabIndex        =   125
            Top             =   3240
            Width           =   1335
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   9
            Left            =   8760
            TabIndex        =   124
            Top             =   3240
            Width           =   1815
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   9
            Left            =   7440
            TabIndex        =   123
            Top             =   3240
            Width           =   1215
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   9
            Left            =   4440
            TabIndex        =   122
            Top             =   3240
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   9
            Left            =   0
            TabIndex        =   121
            Top             =   3240
            Width           =   4455
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   8
            Left            =   6000
            TabIndex        =   120
            Top             =   2880
            Width           =   1335
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   8
            Left            =   8760
            TabIndex        =   119
            Top             =   2880
            Width           =   1815
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   8
            Left            =   7440
            TabIndex        =   118
            Top             =   2880
            Width           =   1215
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   8
            Left            =   4440
            TabIndex        =   117
            Top             =   2880
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   8
            Left            =   0
            TabIndex        =   116
            Top             =   2880
            Width           =   4455
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   7
            Left            =   6000
            TabIndex        =   115
            Top             =   2520
            Width           =   1335
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   7
            Left            =   8760
            TabIndex        =   114
            Top             =   2520
            Width           =   1815
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   7
            Left            =   7440
            TabIndex        =   113
            Top             =   2520
            Width           =   1215
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   7
            Left            =   4440
            TabIndex        =   112
            Top             =   2520
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   7
            Left            =   0
            TabIndex        =   111
            Top             =   2520
            Width           =   4455
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   6
            Left            =   6000
            TabIndex        =   110
            Top             =   2160
            Width           =   1335
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   6
            Left            =   8760
            TabIndex        =   109
            Top             =   2160
            Width           =   1815
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   6
            Left            =   7440
            TabIndex        =   108
            Top             =   2160
            Width           =   1215
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   6
            Left            =   4440
            TabIndex        =   107
            Top             =   2160
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   6
            Left            =   0
            TabIndex        =   106
            Top             =   2160
            Width           =   4455
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   5
            Left            =   6000
            TabIndex        =   105
            Top             =   1800
            Width           =   1335
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   5
            Left            =   8760
            TabIndex        =   104
            Top             =   1800
            Width           =   1815
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   5
            Left            =   7440
            TabIndex        =   103
            Top             =   1800
            Width           =   1215
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   5
            Left            =   4440
            TabIndex        =   102
            Top             =   1800
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   5
            Left            =   0
            TabIndex        =   101
            Top             =   1800
            Width           =   4455
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   4
            Left            =   6000
            TabIndex        =   100
            Top             =   1440
            Width           =   1335
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   4
            Left            =   8760
            TabIndex        =   99
            Top             =   1440
            Width           =   1815
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   4
            Left            =   7440
            TabIndex        =   98
            Top             =   1440
            Width           =   1215
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   4
            Left            =   4440
            TabIndex        =   97
            Top             =   1440
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   4
            Left            =   0
            TabIndex        =   96
            Top             =   1440
            Width           =   4455
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   3
            Left            =   6000
            TabIndex        =   95
            Top             =   1080
            Width           =   1335
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   3
            Left            =   8760
            TabIndex        =   94
            Top             =   1080
            Width           =   1815
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   3
            Left            =   7440
            TabIndex        =   93
            Top             =   1080
            Width           =   1215
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   3
            Left            =   4440
            TabIndex        =   92
            Top             =   1080
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   3
            Left            =   0
            TabIndex        =   91
            Top             =   1080
            Width           =   4455
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   2
            Left            =   6000
            TabIndex        =   90
            Top             =   720
            Width           =   1335
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   2
            Left            =   8760
            TabIndex        =   89
            Top             =   720
            Width           =   1815
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   2
            Left            =   7440
            TabIndex        =   88
            Top             =   720
            Width           =   1215
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   2
            Left            =   4440
            TabIndex        =   87
            Top             =   720
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   2
            Left            =   0
            TabIndex        =   86
            Top             =   720
            Width           =   4455
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   14
            Left            =   0
            TabIndex        =   85
            Top             =   5040
            Width           =   4455
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   14
            Left            =   4440
            TabIndex        =   84
            Top             =   5040
            Width           =   1335
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   14
            Left            =   7440
            TabIndex        =   83
            Top             =   5040
            Width           =   1215
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   14
            Left            =   8760
            TabIndex        =   82
            Top             =   5040
            Width           =   1815
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   14
            Left            =   6000
            TabIndex        =   81
            Top             =   5040
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   13
            Left            =   0
            TabIndex        =   80
            Top             =   4680
            Width           =   4455
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   13
            Left            =   4440
            TabIndex        =   79
            Top             =   4680
            Width           =   1335
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   13
            Left            =   7440
            TabIndex        =   78
            Top             =   4680
            Width           =   1215
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   13
            Left            =   8760
            TabIndex        =   77
            Top             =   4680
            Width           =   1815
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   13
            Left            =   6000
            TabIndex        =   76
            Top             =   4680
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   12
            Left            =   0
            TabIndex        =   75
            Top             =   4320
            Width           =   4455
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   12
            Left            =   4440
            TabIndex        =   74
            Top             =   4320
            Width           =   1335
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   12
            Left            =   7440
            TabIndex        =   73
            Top             =   4320
            Width           =   1215
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   12
            Left            =   8760
            TabIndex        =   72
            Top             =   4320
            Width           =   1815
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   12
            Left            =   6000
            TabIndex        =   71
            Top             =   4320
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   11
            Left            =   0
            TabIndex        =   70
            Top             =   3960
            Width           =   4455
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   11
            Left            =   4440
            TabIndex        =   69
            Top             =   3960
            Width           =   1335
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   11
            Left            =   7440
            TabIndex        =   68
            Top             =   3960
            Width           =   1215
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   11
            Left            =   8760
            TabIndex        =   67
            Top             =   3960
            Width           =   1815
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   11
            Left            =   6000
            TabIndex        =   66
            Top             =   3960
            Width           =   1335
         End
         Begin VB.ComboBox cmbItem 
            Height          =   315
            Index           =   10
            Left            =   0
            TabIndex        =   65
            Top             =   3600
            Width           =   4455
         End
         Begin VB.TextBox txtQuantity 
            Height          =   285
            Index           =   10
            Left            =   4440
            TabIndex        =   64
            Top             =   3600
            Width           =   1335
         End
         Begin VB.TextBox txtPer 
            Height          =   285
            Index           =   10
            Left            =   7440
            TabIndex        =   63
            Top             =   3600
            Width           =   1215
         End
         Begin VB.TextBox txtAmount 
            Height          =   285
            Index           =   10
            Left            =   8760
            TabIndex        =   62
            Top             =   3600
            Width           =   1815
         End
         Begin VB.TextBox txtRate 
            Height          =   285
            Index           =   10
            Left            =   6000
            TabIndex        =   61
            Top             =   3600
            Width           =   1335
         End
      End
   End
   Begin VB.Frame Frame3 
      BackColor       =   &H00E0E0E0&
      Height          =   1575
      Left            =   120
      TabIndex        =   46
      Top             =   5880
      Width           =   11535
      Begin VB.TextBox txtRPWords 
         Height          =   765
         Left            =   120
         TabIndex        =   54
         Top             =   600
         Width           =   3735
      End
      Begin VB.TextBox txtTotAmount 
         Height          =   315
         Left            =   9120
         TabIndex        =   53
         Top             =   120
         Width           =   1815
      End
      Begin VB.TextBox txtTotQuantity 
         Height          =   315
         Left            =   4680
         TabIndex        =   52
         Top             =   120
         Width           =   1455
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "PPN"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   7560
         TabIndex        =   51
         Top             =   480
         Width           =   1455
      End
      Begin VB.CheckBox Check2 
         BackColor       =   &H00E0E0E0&
         Caption         =   "DISCOUNT"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   7560
         TabIndex        =   50
         Top             =   840
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         Height          =   315
         Left            =   9120
         TabIndex        =   49
         Top             =   480
         Width           =   1815
      End
      Begin VB.TextBox Text2 
         Height          =   315
         Left            =   9120
         TabIndex        =   48
         Top             =   840
         Width           =   1815
      End
      Begin VB.TextBox Text3 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   9120
         TabIndex        =   47
         Top             =   1200
         Width           =   1815
      End
      Begin VB.Label Label17 
         BackStyle       =   0  'Transparent
         Caption         =   "TOTAL"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   3840
         TabIndex        =   58
         Top             =   120
         Width           =   615
      End
      Begin VB.Label Label16 
         BackStyle       =   0  'Transparent
         Caption         =   "AMOUNT CHARGEABLE(IN WORDS)"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   120
         TabIndex        =   57
         Top             =   240
         Width           =   3015
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "GROSS TOTAL"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   7560
         TabIndex        =   56
         Top             =   120
         Width           =   1455
      End
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "NET TOTAL"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   255
         Left            =   7560
         TabIndex        =   55
         Top             =   1200
         Width           =   1455
      End
      Begin VB.Line Line4 
         X1              =   7320
         X2              =   7320
         Y1              =   120
         Y2              =   1560
      End
   End
   Begin VB.CommandButton cmdExit 
      BackColor       =   &H00E0E0E0&
      Caption         =   "EXIT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   8280
      MaskColor       =   &H8000000D&
      TabIndex        =   40
      Top             =   7800
      Width           =   1335
   End
   Begin VB.CommandButton cmdPrint 
      BackColor       =   &H00E0E0E0&
      Caption         =   "PRINT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6360
      MaskColor       =   &H8000000D&
      TabIndex        =   39
      Top             =   7800
      Width           =   1335
   End
   Begin VB.CommandButton cmdCancel 
      BackColor       =   &H00E0E0E0&
      Caption         =   "CANCEL"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4320
      MaskColor       =   &H8000000D&
      TabIndex        =   38
      Top             =   7800
      Width           =   1335
   End
   Begin VB.CommandButton cmdSave 
      BackColor       =   &H00E0E0E0&
      Caption         =   "SAVE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2400
      MaskColor       =   &H8000000D&
      TabIndex        =   37
      Top             =   7800
      Width           =   1335
   End
   Begin VB.Frame fraGoods 
      BackColor       =   &H00E0E0E0&
      Caption         =   "DESCRIPTION OF GOODS"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H008B4143&
      Height          =   375
      Left            =   120
      TabIndex        =   21
      Top             =   2040
      Width           =   11535
      Begin VB.ComboBox cmbItem 
         Height          =   315
         Index           =   15
         Left            =   360
         TabIndex        =   45
         Top             =   5760
         Width           =   4455
      End
      Begin VB.TextBox txtQuantity 
         Height          =   285
         Index           =   15
         Left            =   4800
         TabIndex        =   44
         Top             =   5760
         Width           =   1335
      End
      Begin VB.TextBox txtPer 
         Height          =   285
         Index           =   15
         Left            =   7800
         TabIndex        =   43
         Top             =   5760
         Width           =   1215
      End
      Begin VB.TextBox txtAmount 
         Height          =   285
         Index           =   15
         Left            =   9120
         TabIndex        =   42
         Top             =   5760
         Width           =   1815
      End
      Begin VB.TextBox txtRate 
         Height          =   285
         Index           =   15
         Left            =   6360
         TabIndex        =   41
         Top             =   5760
         Width           =   1335
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "10"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Index           =   9
         Left            =   120
         TabIndex        =   35
         Top             =   3600
         Width           =   255
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "9"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Index           =   8
         Left            =   120
         TabIndex        =   34
         Top             =   3240
         Width           =   135
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "8"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   33
         Top             =   2880
         Width           =   135
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "7"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   32
         Top             =   2520
         Width           =   135
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "6"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   31
         Top             =   2160
         Width           =   135
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "5"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   30
         Top             =   1800
         Width           =   135
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "4"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   29
         Top             =   1440
         Width           =   135
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "3"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   28
         Top             =   1080
         Width           =   135
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "2"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   27
         Top             =   720
         Width           =   135
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "1"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   26
         Top             =   360
         Width           =   135
      End
      Begin VB.Label Label14 
         BackStyle       =   0  'Transparent
         Caption         =   "AMOUNT"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   9600
         TabIndex        =   25
         Top             =   120
         Width           =   855
      End
      Begin VB.Label Label13 
         BackStyle       =   0  'Transparent
         Caption         =   "PER"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   8280
         TabIndex        =   24
         Top             =   120
         Width           =   975
      End
      Begin VB.Label Label12 
         BackStyle       =   0  'Transparent
         Caption         =   "RATE"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   6720
         TabIndex        =   23
         Top             =   120
         Width           =   615
      End
      Begin VB.Label Label11 
         BackStyle       =   0  'Transparent
         Caption         =   "QUANTITY"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   4920
         TabIndex        =   22
         Top             =   120
         Width           =   1095
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00E0E0E0&
      Height          =   2055
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   11535
      Begin VB.TextBox txtDestination 
         Height          =   285
         Left            =   9360
         TabIndex        =   36
         Top             =   1200
         Width           =   2055
      End
      Begin VB.TextBox txtTermsDel 
         Height          =   405
         Left            =   4440
         TabIndex        =   20
         Top             =   1560
         Width           =   6975
      End
      Begin VB.TextBox txtDespatch 
         Height          =   285
         Left            =   5400
         TabIndex        =   18
         Top             =   960
         Width           =   1935
      End
      Begin VB.TextBox txtOthRef 
         Height          =   285
         Left            =   9360
         TabIndex        =   15
         Top             =   840
         Width           =   2055
      End
      Begin VB.TextBox Text7 
         Height          =   285
         Left            =   9360
         TabIndex        =   13
         Top             =   480
         Width           =   2055
      End
      Begin VB.TextBox txtDate 
         Height          =   285
         Left            =   9360
         TabIndex        =   11
         Top             =   120
         Width           =   2055
      End
      Begin VB.TextBox txtSupRef 
         Height          =   285
         Left            =   5400
         TabIndex        =   9
         Top             =   600
         Width           =   1935
      End
      Begin VB.TextBox txtOrdNo 
         Height          =   285
         Left            =   5400
         TabIndex        =   7
         Top             =   240
         Width           =   1935
      End
      Begin VB.ComboBox cmbSupplier 
         Height          =   315
         Left            =   120
         TabIndex        =   5
         Top             =   480
         Width           =   3135
      End
      Begin VB.TextBox txtSupAdd3 
         Height          =   285
         Left            =   120
         TabIndex        =   4
         Top             =   1560
         Width           =   3135
      End
      Begin VB.TextBox txtSupAdd2 
         Height          =   285
         Left            =   120
         TabIndex        =   3
         Top             =   1200
         Width           =   3135
      End
      Begin VB.TextBox txtSupAdd1 
         Height          =   285
         Left            =   120
         TabIndex        =   2
         Top             =   840
         Width           =   3135
      End
      Begin VB.Line Line3 
         X1              =   3360
         X2              =   11520
         Y1              =   1480
         Y2              =   1480
      End
      Begin VB.Label Label10 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "TERMS OF DELIVERY"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   495
         Left            =   3360
         TabIndex        =   19
         Top             =   1560
         Width           =   1215
      End
      Begin VB.Label Label9 
         BackStyle       =   0  'Transparent
         Caption         =   "DESPATCH THROUGH"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   3480
         TabIndex        =   17
         Top             =   960
         Width           =   1815
      End
      Begin VB.Line Line2 
         X1              =   7440
         X2              =   7440
         Y1              =   120
         Y2              =   1440
      End
      Begin VB.Label Label8 
         BackStyle       =   0  'Transparent
         Caption         =   "DESTINATION"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   7560
         TabIndex        =   16
         Top             =   1200
         Width           =   1215
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "OTHER'S REFERENCE"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   7560
         TabIndex        =   14
         Top             =   840
         Width           =   2055
      End
      Begin VB.Label txtTermsPay 
         BackStyle       =   0  'Transparent
         Caption         =   "TERMS OF PAYMENT"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   7560
         TabIndex        =   12
         Top             =   480
         Width           =   2175
      End
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "DATE"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   7560
         TabIndex        =   10
         Top             =   120
         Width           =   1215
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "SUPPLIER'S REF."
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   3360
         TabIndex        =   8
         Top             =   600
         Width           =   1575
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "ORDER NO"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   3480
         TabIndex        =   6
         Top             =   240
         Width           =   1095
      End
      Begin VB.Line Line1 
         X1              =   3360
         X2              =   3360
         Y1              =   120
         Y2              =   2040
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "SUPPLIER NAME && ADDRESS"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008B4143&
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   120
         Width           =   2895
      End
   End
End
Attribute VB_Name = "frmInsPurchaseOrder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Form_Load()
VScroll1.Height = PicWindow.Height
    
    VScroll1.Max = PicPicture.Height - PicWindow.Height
    VScroll1.SmallChange = 100
    VScroll1.LargeChange = PicWindow.Height
End Sub

Private Sub PicPicture_KeyDown(KeyCode As Integer, Shift As Integer)
    CheckKeyCode KeyCode
End Sub

Private Sub VScroll1_Change()
PicPicture.Top = -(VScroll1.Value)

End Sub
Public Sub CheckKeyCode(KeyCode As Integer)
'***************************************************************************
'Purpose: Intercept and act on special keys on me so
'         that up and down arrows and scroll bar works as expected. Also
'         automatically scroll screen when Tab key would otherwise disappear
'         off the screen.
'Inputs:  KeyCode - The ASCII(?) value of the key pressed
'Outputs: None
'***************************************************************************

    Dim nScrollValue As Double
    Dim nOnePage As Integer
    
    nOnePage = Me.VScroll1.Height
    
    If KeyCode = vbKeyPageUp Or KeyCode = vbKeyPageDown Then
        If KeyCode = vbKeyPageDown Then
            nScrollValue = -Me.PicPicture.Top + nOnePage
        Else
            nScrollValue = -Me.PicPicture.Top - nOnePage
        End If
        'Make sure that the scroll bar 'handle' is not attempted to be positioned
        'below the bottom of the scroll bar.
        If nScrollValue > Me.VScroll1.Max Then
            nScrollValue = Me.VScroll1.Max
            Me.PicPicture.Top = -Me.VScroll1.Max
        End If
        If nScrollValue > 0 Then
            Me.VScroll1.Value = nScrollValue
        Else
            Me.VScroll1.Value = 0
        End If
    End If
    
End Sub