vbAccelerator - Contents of code file: frmIOLEControlTest.frm

VERSION 5.00
Object = "{6B1DEA94-3F05-4529-97DA-08651F47F6D8}#1.0#0"; "ctlMnemonicLib.ocx"
Begin VB.Form frmIOLEControlTest 
   Caption         =   "Test IOLEControl Extender"
   ClientHeight    =   4155
   ClientLeft      =   6585
   ClientTop       =   4035
   ClientWidth     =   5190
   Icon            =   "frmIOLEControlTest.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4155
   ScaleWidth      =   5190
   Begin VB.CommandButton cmdAmbient 
      Caption         =   "Check Ambient &Font Change"
      Height          =   555
      Left            =   3480
      TabIndex        =   6
      Top             =   3420
      Width           =   1515
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "Add Mnemonic"
      Height          =   435
      Index           =   1
      Left            =   3480
      TabIndex        =   4
      Top             =   1740
      Width           =   1455
   End
   Begin VB.CommandButton cmdClear 
      Caption         =   "Clear Mnemonics"
      Height          =   435
      Index           =   1
      Left            =   3480
      TabIndex        =   5
      Top             =   2220
      Width           =   1455
   End
   Begin ctlMnemonicLib.ctlMnemonics ctlMnemonic2 
      Height          =   1575
      Left            =   120
      TabIndex        =   1
      Top             =   1740
      Width           =   3255
      _ExtentX        =   5741
      _ExtentY        =   2778
   End
   Begin ctlMnemonicLib.ctlMnemonics ctlMnemonic1 
      Height          =   1575
      Left            =   120
      TabIndex        =   0
      Top             =   60
      Width           =   3255
      _ExtentX        =   5741
      _ExtentY        =   2778
   End
   Begin VB.CommandButton cmdClear 
      Caption         =   "Clear Mnemonics"
      Height          =   435
      Index           =   0
      Left            =   3540
      TabIndex        =   3
      Top             =   540
      Width           =   1455
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "Add Mnemonic"
      Height          =   435
      Index           =   0
      Left            =   3540
      TabIndex        =   2
      Top             =   60
      Width           =   1455
   End
End
Attribute VB_Name = "frmIOLEControlTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdAdd_Click(Index As Integer)
Dim sI As String
   sI = InputBox("Enter mnemonic to add: ")
   If (Len(sI) > 0) Then
      If (Index = 0) Then
         ctlMnemonic1.AddMnemonic sI
      Else
         ctlMnemonic2.AddMnemonic sI
      End If
   End If

End Sub

Private Sub cmdAdd_LostFocus(Index As Integer)
   Debug.Print "cmdAdd_LostFocus(" & Index & ")"
End Sub

Private Sub cmdAmbient_Click()
   If Me.Font.Name = "Arial" Then
      Me.Font.Name = "Tahoma"
   Else
      Me.Font.Name = "Arial"
   End If
End Sub

Private Sub cmdClear_Click(Index As Integer)
   If (Index = 0) Then
      ctlMnemonic1.ClearMnemonics
   Else
      ctlMnemonic2.ClearMnemonics
   End If
End Sub