frmhelp.frm

display the register value in vb

VERSION 5.00
Begin VB.Form frmHelp 
   Caption         =   "Help : VRvF 2.0"
   ClientHeight    =   5520
   ClientLeft      =   3600
   ClientTop       =   2550
   ClientWidth     =   7500
   Icon            =   "frmHelp.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   5520
   ScaleWidth      =   7500
   Begin VB.OptionButton optgen 
      Caption         =   "General"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   12
      Top             =   360
      Width           =   1695
   End
   Begin VB.CommandButton cmdok 
      Caption         =   "OK"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2640
      TabIndex        =   5
      Top             =   4800
      Width           =   1935
   End
   Begin VB.OptionButton optv2c 
      Caption         =   "Value to Colour"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4920
      TabIndex        =   4
      Top             =   360
      Width           =   1815
   End
   Begin VB.OptionButton optc2v 
      Caption         =   "Colour to Value "
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2760
      TabIndex        =   3
      Top             =   360
      Width           =   1695
   End
   Begin VB.Frame framec2v 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   3255
      Left            =   480
      TabIndex        =   0
      Top             =   1200
      Width           =   6375
      Begin VB.Label lblc2v1 
         BackColor       =   &H00FFFFFF&
         Caption         =   "1. Just click on which colour you want to        select"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   600
         TabIndex        =   2
         Top             =   960
         Width           =   5655
      End
      Begin VB.Label lblc2vtopic 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "COLOUR TO VALUE"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   18
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   720
         TabIndex        =   1
         Top             =   240
         Width           =   4815
      End
   End
   Begin VB.Frame Framegen 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   3375
      Left            =   240
      TabIndex        =   9
      Top             =   1200
      Width           =   7095
      Begin VB.Label Lblgen1 
         BackColor       =   &H00FFFFFF&
         Caption         =   $"frmHelp.frx":0442
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   2175
         Left            =   240
         TabIndex        =   11
         Top             =   720
         Width           =   6615
      End
      Begin VB.Label lblgentopic 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "GENRAL"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   18
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   2520
         TabIndex        =   10
         Top             =   120
         Width           =   1695
      End
   End
   Begin VB.Frame framev2c 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   3375
      Left            =   360
      TabIndex        =   6
      Top             =   1200
      Width           =   6615
      Begin VB.Label lblv2c1 
         BackColor       =   &H00FFFFFF&
         Caption         =   $"frmHelp.frx":0659
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   2295
         Left            =   480
         TabIndex        =   8
         Top             =   840
         Width           =   5655
      End
      Begin VB.Label lblv2ctopic 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "VALUE TO COLOUR"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   18
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   840
         TabIndex        =   7
         Top             =   240
         Width           =   4815
      End
   End
End
Attribute VB_Name = "frmhelp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'       Name  : Visual Resistor Value Finder V2.0       '
'       Author: T.Shankar                               '
'       E-Mail: [e-mail]                  '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub cmdok_Click()
Unload Me
End Sub

Private Sub Form_Load()
optgen.Value = True
optv2c.Value = False
optc2v.Value = False
End Sub

Private Sub optc2v_Click()
framev2c.Visible = False
Framegen.Visible = False
framec2v.Visible = True
End Sub

Private Sub Optgen_Click()
framec2v.Visible = False
framev2c.Visible = False
Framegen.Visible = True
End Sub

Private Sub optv2c_Click()
framec2v.Visible = False
Framegen.Visible = False
framev2c.Visible = True
End Sub