VERSION 5.00
Object = "{BD74B1D8-370A-427A-ABCA-967C0F126CA1}#13.0#0"; "LCDpixel.ocx"
Begin VB.UserControl LcdEmulator 
   BackColor       =   &H00008000&
   ClientHeight    =   1380
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9585
   ScaleHeight     =   1380
   ScaleWidth      =   9585
   Begin VB.Timer tmrE2Blink 
      Left            =   4680
      Top             =   1800
   End
   Begin VB.Timer tmrE1Blink 
      Left            =   3960
      Top             =   1680
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   0
      Left            =   0
      TabIndex        =   0
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   0
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   1
      Left            =   240
      TabIndex        =   2
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   2
      Left            =   480
      TabIndex        =   3
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   3
      Left            =   720
      TabIndex        =   4
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   4
      Left            =   960
      TabIndex        =   5
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   5
      Left            =   1200
      TabIndex        =   6
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   6
      Left            =   1440
      TabIndex        =   7
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   7
      Left            =   1680
      TabIndex        =   8
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   8
      Left            =   1920
      TabIndex        =   9
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   9
      Left            =   2160
      TabIndex        =   10
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   10
      Left            =   2400
      TabIndex        =   11
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   11
      Left            =   2640
      TabIndex        =   12
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   12
      Left            =   2880
      TabIndex        =   13
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   13
      Left            =   3120
      TabIndex        =   14
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   14
      Left            =   3360
      TabIndex        =   15
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   15
      Left            =   3600
      TabIndex        =   16
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   16
      Left            =   3840
      TabIndex        =   17
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   17
      Left            =   4080
      TabIndex        =   18
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   18
      Left            =   4320
      TabIndex        =   19
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   19
      Left            =   4560
      TabIndex        =   20
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   20
      Left            =   4800
      TabIndex        =   21
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   21
      Left            =   5040
      TabIndex        =   22
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   22
      Left            =   5280
      TabIndex        =   23
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   23
      Left            =   5520
      TabIndex        =   24
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   24
      Left            =   5760
      TabIndex        =   25
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   25
      Left            =   6000
      TabIndex        =   26
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   26
      Left            =   6240
      TabIndex        =   27
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   27
      Left            =   6480
      TabIndex        =   28
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   28
      Left            =   6720
      TabIndex        =   29
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   29
      Left            =   6960
      TabIndex        =   30
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   30
      Left            =   7200
      TabIndex        =   31
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   31
      Left            =   7440
      TabIndex        =   32
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   32
      Left            =   7680
      TabIndex        =   33
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   33
      Left            =   7920
      TabIndex        =   34
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   34
      Left            =   8160
      TabIndex        =   35
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   35
      Left            =   8400
      TabIndex        =   36
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   36
      Left            =   8640
      TabIndex        =   37
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   37
      Left            =   8880
      TabIndex        =   38
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   38
      Left            =   9120
      TabIndex        =   39
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   39
      Left            =   9360
      TabIndex        =   40
      Top             =   0
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   40
      Left            =   0
      TabIndex        =   41
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   41
      Left            =   240
      TabIndex        =   42
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   42
      Left            =   480
      TabIndex        =   43
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   43
      Left            =   720
      TabIndex        =   44
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   44
      Left            =   960
      TabIndex        =   45
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   45
      Left            =   1200
      TabIndex        =   46
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   46
      Left            =   1440
      TabIndex        =   47
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   47
      Left            =   1680
      TabIndex        =   48
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   48
      Left            =   1920
      TabIndex        =   49
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   49
      Left            =   2160
      TabIndex        =   50
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   50
      Left            =   2400
      TabIndex        =   51
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   51
      Left            =   2640
      TabIndex        =   52
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   52
      Left            =   2880
      TabIndex        =   53
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   53
      Left            =   3120
      TabIndex        =   54
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   54
      Left            =   3360
      TabIndex        =   55
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   55
      Left            =   3600
      TabIndex        =   56
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   56
      Left            =   3840
      TabIndex        =   57
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   57
      Left            =   4080
      TabIndex        =   58
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   58
      Left            =   4320
      TabIndex        =   59
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   59
      Left            =   4560
      TabIndex        =   60
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   60
      Left            =   4800
      TabIndex        =   61
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   61
      Left            =   5040
      TabIndex        =   62
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   62
      Left            =   5280
      TabIndex        =   63
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   63
      Left            =   5520
      TabIndex        =   64
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   64
      Left            =   5760
      TabIndex        =   65
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   65
      Left            =   6000
      TabIndex        =   66
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   66
      Left            =   6240
      TabIndex        =   67
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   67
      Left            =   6480
      TabIndex        =   68
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   68
      Left            =   6720
      TabIndex        =   69
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   69
      Left            =   6960
      TabIndex        =   70
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   70
      Left            =   7200
      TabIndex        =   71
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   71
      Left            =   7440
      TabIndex        =   72
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   72
      Left            =   7680
      TabIndex        =   73
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   73
      Left            =   7920
      TabIndex        =   74
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   74
      Left            =   8160
      TabIndex        =   75
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   75
      Left            =   8400
      TabIndex        =   76
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   76
      Left            =   8640
      TabIndex        =   77
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   77
      Left            =   8880
      TabIndex        =   78
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   78
      Left            =   9120
      TabIndex        =   79
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E1Pixel 
      Height          =   285
      Index           =   79
      Left            =   9360
      TabIndex        =   80
      Top             =   360
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   1
      Left            =   240
      TabIndex        =   81
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   2
      Left            =   480
      TabIndex        =   82
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   3
      Left            =   720
      TabIndex        =   83
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   4
      Left            =   960
      TabIndex        =   84
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   5
      Left            =   1200
      TabIndex        =   85
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   6
      Left            =   1440
      TabIndex        =   86
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   7
      Left            =   1680
      TabIndex        =   87
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   8
      Left            =   1920
      TabIndex        =   88
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   9
      Left            =   2160
      TabIndex        =   89
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   10
      Left            =   2400
      TabIndex        =   90
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   11
      Left            =   2640
      TabIndex        =   91
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   12
      Left            =   2880
      TabIndex        =   92
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   13
      Left            =   3120
      TabIndex        =   93
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   14
      Left            =   3360
      TabIndex        =   94
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   15
      Left            =   3600
      TabIndex        =   95
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   16
      Left            =   3840
      TabIndex        =   96
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   17
      Left            =   4080
      TabIndex        =   97
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   18
      Left            =   4320
      TabIndex        =   98
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   19
      Left            =   4560
      TabIndex        =   99
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   20
      Left            =   4800
      TabIndex        =   100
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   21
      Left            =   5040
      TabIndex        =   101
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   22
      Left            =   5280
      TabIndex        =   102
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   23
      Left            =   5520
      TabIndex        =   103
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   24
      Left            =   5760
      TabIndex        =   104
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   25
      Left            =   6000
      TabIndex        =   105
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   26
      Left            =   6240
      TabIndex        =   106
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   27
      Left            =   6480
      TabIndex        =   107
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   28
      Left            =   6720
      TabIndex        =   108
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   29
      Left            =   6960
      TabIndex        =   109
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   30
      Left            =   7200
      TabIndex        =   110
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   31
      Left            =   7440
      TabIndex        =   111
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   32
      Left            =   7680
      TabIndex        =   112
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   33
      Left            =   7920
      TabIndex        =   113
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   34
      Left            =   8160
      TabIndex        =   114
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   35
      Left            =   8400
      TabIndex        =   115
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   36
      Left            =   8640
      TabIndex        =   116
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   37
      Left            =   8880
      TabIndex        =   117
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   38
      Left            =   9120
      TabIndex        =   118
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   39
      Left            =   9360
      TabIndex        =   119
      Top             =   720
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   40
      Left            =   0
      TabIndex        =   120
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   41
      Left            =   240
      TabIndex        =   121
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   42
      Left            =   480
      TabIndex        =   122
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   43
      Left            =   720
      TabIndex        =   123
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   44
      Left            =   960
      TabIndex        =   124
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   45
      Left            =   1200
      TabIndex        =   125
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   46
      Left            =   1440
      TabIndex        =   126
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   47
      Left            =   1680
      TabIndex        =   127
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   48
      Left            =   1920
      TabIndex        =   128
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   49
      Left            =   2160
      TabIndex        =   129
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   50
      Left            =   2400
      TabIndex        =   130
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   51
      Left            =   2640
      TabIndex        =   131
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   52
      Left            =   2880
      TabIndex        =   132
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   53
      Left            =   3120
      TabIndex        =   133
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   54
      Left            =   3360
      TabIndex        =   134
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   55
      Left            =   3600
      TabIndex        =   135
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   56
      Left            =   3840
      TabIndex        =   136
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   57
      Left            =   4080
      TabIndex        =   137
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   58
      Left            =   4320
      TabIndex        =   138
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   59
      Left            =   4560
      TabIndex        =   139
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   60
      Left            =   4800
      TabIndex        =   140
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   61
      Left            =   5040
      TabIndex        =   141
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   62
      Left            =   5280
      TabIndex        =   142
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   63
      Left            =   5520
      TabIndex        =   143
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   64
      Left            =   5760
      TabIndex        =   144
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   65
      Left            =   6000
      TabIndex        =   145
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   66
      Left            =   6240
      TabIndex        =   146
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   67
      Left            =   6480
      TabIndex        =   147
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   68
      Left            =   6720
      TabIndex        =   148
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   69
      Left            =   6960
      TabIndex        =   149
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   70
      Left            =   7200
      TabIndex        =   150
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   71
      Left            =   7440
      TabIndex        =   151
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   72
      Left            =   7680
      TabIndex        =   152
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   73
      Left            =   7920
      TabIndex        =   153
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   74
      Left            =   8160
      TabIndex        =   154
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   75
      Left            =   8400
      TabIndex        =   155
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   76
      Left            =   8640
      TabIndex        =   156
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   77
      Left            =   8880
      TabIndex        =   157
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   78
      Left            =   9120
      TabIndex        =   158
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
   Begin LcdPixel.Pixel E2Pixel 
      Height          =   285
      Index           =   79
      Left            =   9360
      TabIndex        =   159
      Top             =   1080
      Width           =   210
      _ExtentX        =   370
      _ExtentY        =   503
   End
End
Attribute VB_Name = "LcdEmulator"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Enum lcdemuController
    EmuFirst = 1
    emusecond = 2
End Enum
Public Enum lcdCustomCharSlot
    Custom1 = 0
    Custom2 = 1
    Custom3 = 2
    Custom4 = 3
    Custom5 = 4
    Custom6 = 5
    Custom7 = 6
    Custom8 = 7
End Enum
Public Enum lcdController
    lcdfirst = 1
    lcdsecond = 2
End Enum
Public Enum lcdFonts
    size5x8 = 0
    size5x10 = 1
End Enum
Public Enum lcdOnOff
    lcdon = 1
    lcdOff = 0
End Enum
Public Enum lcdDirection
    lcdIncrement = 1
    lcdDicrement = 0
End Enum
Public Enum lcdShiftMode
    lcdShift = 1
    lcdNoShift = 0
End Enum
Public Enum lcdMoveOrShift
    lcdMoveCursor = 0
    lcdShiftDisplay = 1
End Enum
Public Enum lcdMove
    lcdRight = 1
    lcdLeft = 0
End Enum
Public Enum lcdDataLength
    lcd4bit = 0
    lcd8bit = 1
End Enum
Public Enum lcdLines
    lcd1line = 0
    lcd2lines = 1
End Enum

Private E1CurrentPixel, E2CurrentPixel

Private E1Direction, E2Direction As lcdDirection
Private E1ShiftDisplay, E2ShiftDisplay As lcdShiftMode
Private E1CursorOrShift, E2CursorOrShift As lcdMoveOrShift, E1RightOrLeft, E2RightOrLeft As lcdMove
Public E1CGRamAddress, E2CGRamAddress, E1DDRamAddress, E2DDRamAddress As Integer

Private E1Display, E1Cursor, E1Blink, E2Display, E2Cursor, E2Blink As lcdOnOff



Public Sub WriteData(ByVal Controller As lcdController, ByVal Data As Integer)
If E1DDRamAddress >= 80 Or E2DDRamAddress >= 80 Then Exit Sub
Select Case Controller
    Case lcdfirst
        E1Pixel(E1DDRamAddress).AsciiCode = Data
    Case lcdsecond
        E2Pixel(E2DDRamAddress).AsciiCode = Data
End Select

    
End Sub
Public Sub Instruct(ByVal Controller As lcdController, ByVal Instruction As Integer)
    Select Case Controller
        Case lcdfirst
            Select Case Instruction
                Case 1 'clear
                    For i = 0 To 79
                       E1Pixel(i).AsciiCode = 0
                       E1Pixel(i).ShowCursor = False
                       
                       E1DDRamAddress = 0
                       If E1Cursor = lcdon Then E1Pixel(E1DDRamAddress).ShowCursor = True
                       
                    Next i
                Case 2 'home
                    If E1Cursor = lcdon Then
                        E1Pixel(E1DDRamAddress).ShowCursor = False
                        E1DDRamAddress = 0
                        E1Pixel(E1DDRamAddress).ShowCursor = True
                    End If
                Case Is < 8 And Instruction >= 4 'Entrymodeset
                    E1Direction = ConvToBin(1, Instruction)
                    E1ShiftDisplay = ConvToBin(0, Instruction)
                Case Is < 16 And Instruction >= 8 'Display set
                    E1Display = ConvToBin(2, Instruction)
                    E1Cursor = ConvToBin(1, Instruction)
                    E1Blink = ConvToBin(0, Instruction)
                    
                    If E1Blink = lcdon Then
                        tmrE1Blink = True
                    Else
                        tmrE1Blink = False
                    End If
                    
                Case Is < 32 And Instruction >= 16 'Move Cursor
                    E1CursorOrShift = ConvToBin(3, Instruction)
                    E1RightOrLeft = ConvToBin(2, Instruction)
                Case Is < 64 And Instruction >= 32 'function set
                    'i don't use this ,so i won't write code for this one
                Case Is < 128 And Instruction >= 64 'setCGRamAddress
                    E1CGRamAddress = Instruction - 64
                Case Is < 256 And Instruction >= 128 'Set DDRamAddress
                    If E1Cursor = lcdon Then E1Pixel(E1DDRamAddress).ShowCursor = False
                    E1DDRamAddress = Instruction - 128
                    If E1DDRamAddress > 39 Then E1DDRamAddress = E1DDRamAddress - 24
                    If E1Cursor = lcdon Then E1Pixel(E1DDRamAddress).ShowCursor = True
                    
            End Select
                        
        Case lcdsecond
            Select Case Instruction
                Case 1 'clear
                    For i = 0 To 79
                       E2Pixel(i).AsciiCode = 0
                       E2Pixel(i).ShowCursor = False
                       
                       E1DDRamAddress = 0
                       If E2Cursor = lcdon Then E2Pixel(E2DDRamAddress).ShowCursor = True
                       
                    Next i
                Case 2 'home
                    If E2Cursor = lcdon Then
                        E2Pixel(E2DDRamAddress).ShowCursor = False
                        E2DDRamAddress = 0
                        E2Pixel(E2DDRamAddress).ShowCursor = True
                    End If
                Case Is < 8 And Instruction >= 4 'Entrymodeset
                    E2Direction = ConvToBin(1, Instruction)
                    E2ShiftDisplay = ConvToBin(0, Instruction)
                Case Is < 16 And Instruction >= 8 'Display set
                    E2Display = ConvToBin(2, Instruction)
                    E2Cursor = ConvToBin(1, Instruction)
                    E2Blink = ConvToBin(0, Instruction)
                    
                    If E2Blink = lcdon Then
                        tmrE2Blink = True
                    Else
                        tmrE2Blink = False
                    End If
                    
                Case Is < 32 And Instruction >= 16 'Move Cursor
                    E2CursorOrShift = ConvToBin(3, Instruction)
                    E2RightOrLeft = ConvToBin(2, Instruction)
                Case Is < 64 And Instruction >= 32 'function set
                    'i don't use this ,so i won't write code for this one
                Case Is < 128 And Instruction >= 64 'setCGRamAddress
                    E2CGRamAddress = Instruction - 64
                Case Is < 256 And Instruction >= 128 'Set DDRamAddress
                    If E2Cursor = lcdon Then E2Pixel(E2DDRamAddress).ShowCursor = False
                    E2DDRamAddress = Instruction - 128
                    If E2DDRamAddress > 39 Then E2DDRamAddress = E2DDRamAddress - 24
                    If E2Cursor = lcdon Then E2Pixel(E2DDRamAddress).ShowCursor = True
                    
            End Select
    End Select
    
End Sub
Private Function ConvToBin(ByVal Bit As Integer, ByVal DecimalNum As Integer) As Integer
Dim ArrayBit(0 To 7) As Integer
For i = 0 To 7
    ArrayBit(i) = 0
Next i
    
    If DecimalNum / 128 >= 1 Then
    ArrayBit(7) = 1
    DecimalNum = DecimalNum - 128
    End If
    If DecimalNum / 64 >= 1 Then
    ArrayBit(6) = 1
    DecimalNum = DecimalNum - 64
    End If
    If DecimalNum / 32 >= 1 Then
    ArrayBit(5) = 1
    DecimalNum = DecimalNum - 32
    End If
    If DecimalNum / 16 >= 1 Then
    ArrayBit(4) = 1
    DecimalNum = DecimalNum - 16
    End If
    If DecimalNum / 8 >= 1 Then
    ArrayBit(3) = 1
    DecimalNum = DecimalNum - 8
    End If
    If DecimalNum / 4 >= 1 Then
    ArrayBit(2) = 1
    DecimalNum = DecimalNum - 4
    End If
    If DecimalNum / 2 >= 1 Then
    ArrayBit(1) = 1
    DecimalNum = DecimalNum - 2
    End If
    If DecimalNum = 1 Then ArrayBit(0) = 1
    
    ConvToBin = ArrayBit(Bit)
    
    
End Function
Public Function ReadChar(ByVal Controller As lcdemuController, ByVal Address As Integer) As Integer
Select Case Controller
    Case EmuFirst
        ReadChar = E2Pixel(Address).AsciiCode
    Case emusecond
        ReadChar = E2Pixel(Address).AsciiCode
End Select

End Function


