VERSION 5.00
Begin VB.Form Hexa 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "Hexadecimal Tools"
   ClientHeight    =   6768
   ClientLeft      =   48
   ClientTop       =   288
   ClientWidth     =   5088
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   564
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   424
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command9 
      Caption         =   "Write to File"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   3888
      TabIndex        =   2
      Top             =   6384
      Visible         =   0   'False
      Width           =   1188
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Read"
      Height          =   348
      Left            =   48
      TabIndex        =   1
      Top             =   6288
      Width           =   684
   End
   Begin VB.TextBox Text6 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   6156
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   0
      Width           =   5040
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      Height          =   588
      Left            =   768
      TabIndex        =   3
      Top             =   6144
      Visible         =   0   'False
      Width           =   3084
      WordWrap        =   -1  'True
   End
End
Attribute VB_Name = "Hexa"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Graphread.viewhex_Click
Graphread.Readgraphics_Click
Graphread.viewhex_Click
End Sub

Private Sub Command9_Click()
Graphread.Savegraphics_Click
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
activar KeyCode, Shift, Me
End Sub


Private Sub Form_Load()
Picture = Graphread.Picture

End Sub

Private Sub Form_Resize()
If ScaleWidth > 800 Then Width = 12 * 800
If ScaleHeight > 600 Then Height = 12 * 600
DoEvents
End Sub

Private Sub text6_Change()
formathexs False
End Sub
Private Sub text6_LostFocus()
formathexs True
End Sub

