VERSION 4.00
Begin VB.MDIForm frmSecurity
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "MC SECURITY"
   ClientHeight    =   5925
   ClientLeft      =   1230
   ClientTop       =   1965
   ClientWidth     =   8775
   Height          =   6615
   Icon            =   "MCSECURE.frx":0000
   Left            =   1170
   LinkTopic       =   "MDIForm1"
   Top             =   1335
   Width           =   8895
   Begin VB.Menu mnu_Serialization
      Caption         =   "&Serialization"
   End
   Begin VB.Menu mnu_HashCoding
      Caption         =   "&Hash"
   End
   Begin VB.Menu mnu_RegistrationKey
      Caption         =   "&Registration key"
   End
   Begin VB.Menu mnu_Encryption
      Caption         =   "&Encryption"
   End
   Begin VB.Menu mnu_Crc
      Caption         =   "&Crc"
   End
   Begin VB.Menu mnu_GZIP
      Caption         =   "&GZip"
   End
   Begin VB.Menu mnu_Ruby
      Caption         =   "&Ruby Mark 5"
   End
   Begin VB.Menu mnu_Exit
      Caption         =   "&Exit"
   End
   Begin VB.Menu mnu_About
      Caption         =   "&About"
      WindowList      =   -1  'True
      Begin VB.Menu mnu_Dummy1
         Caption         =   "MC SECURITY"
      End
   End
End
Attribute VB_Name = "frmSecurity"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit




Private Sub MDIForm_Load()
   mnu_About.Caption = Chr$(8) & mnu_About.Caption
End Sub


Private Sub mnu_Crc_Click()
   Load frmCrc
   frmCrc.Show
End Sub

Private Sub mnu_Dummy1_Click()
   Load frmAbout
   frmAbout.Show
End Sub

Private Sub mnu_Encryption_Click()
   Load frmEncryption
   frmEncryption.Show
End Sub

Private Sub mnu_Exit_Click()
   Unload Me
End Sub

Private Sub mnu_GZIP_Click()
   Load frmGZip
   frmGZip.Show
End Sub

Private Sub mnu_HashCoding_Click()
   Load frmHashCoding
   frmHashCoding.Show
End Sub


Private Sub mnu_RegistrationKey_Click()
   Load frmRegistrationKey
   frmRegistrationKey.Show
End Sub

Private Sub mnu_Ruby_Click()
   Load frmRuby
   frmRuby.Show
End Sub

Private Sub mnu_Serialization_Click()
   Load frmSerialization
   frmSerialization.Show
End Sub